perm filename POINTY.PHT[PNT,HE]6 blob
sn#581341 filedate 1981-04-28 generic text, type C, neo UTF8
COMMENT ⊗ VALID 00191 PAGES
C REC PAGE DESCRIPTION
C00001 00001
C00030 00002 {PONTY0.DMP[PNT, HE] :14:22 6 Jan 1981 ALIAS [PNT, HE] LOGIN [ 1,MSM]:Shahid}
C00031 00003 {5.N .$↑ [$X , *] :17:38 19 Jan 1981 ALIAS [TMP,MSM] LOGIN [ 1,MSM]:Shahid}
C00032 00004 {PONTY0.DMP[TMP,MSM] :15:34 20 Jan 1981 ALIAS [TMP,MSM] LOGIN [ 1,MSM]:Shahid}
C00033 00005 {PONTY0.DMP[PNT, HE] :3:52 24 Jan 1981 ALIAS [TMP,MSM] LOGIN [ 1,MSM]:Shahid}
C00034 00006 {PONTY0.DMP[PNT, HE] :15:56 24 Jan 1981 ALIAS [TMP,MSM] LOGIN [ 1,MSM]:Shahid}
C00035 00007 {PONTY0.DMP[PNT, HE] :16:01 24 Jan 1981 ALIAS [TMP,MSM] LOGIN [ 1,MSM]:Shahid}
C00036 00008 {PONTY0.DMP[PNT, HE] :16:44 24 Jan 1981 ALIAS [PNT, HE] LOGIN [ 1,MSM]:Shahid}
C00037 00009 {5.N .$↑ [$X , *] :16:49 24 Jan 1981 ALIAS [PNT, HE] LOGIN [ 1,MSM]:Shahid}
C00038 00010 {PONTY0.DMP[PNT, HE] :17:14 24 Jan 1981 ALIAS [PNT, HE] LOGIN [ 1,MSM]:Shahid}
C00040 00011 {PONTY0.DMP[PNT, HE] :17:46 24 Jan 1981 ALIAS [PNT, HE] LOGIN [ 1,MSM]:Shahid}
C00041 00012 {PONTY0.DMP[PNT, HE] :17:53 24 Jan 1981 ALIAS [PNT, HE] LOGIN [ 1,MSM]:Shahid}
C00043 00013 {PONTY0.DMP[PNT, HE] :2:26 25 Jan 1981 ALIAS [PNT, HE] LOGIN [ 1,MSM]:Shahid}
C00045 00014 {PONTY0.DMP[PNT, HE] :16:30 25 Jan 1981 ALIAS [PNT, HE] LOGIN [ 1,MSM]:Shahid}
C00046 00015 {PONTY0.DMP[PNT, HE] :16:48 25 Jan 1981 ALIAS [PNT, HE] LOGIN [ 1,MSM]:Shahid}
C00047 00016 {PONTY0.DMP[PNT, HE] :17:05 25 Jan 1981 ALIAS [PNT, HE] LOGIN [ 1,MSM]:Shahid}
C00048 00017 {PONTY0.DMP[PNT, HE] :17:07 25 Jan 1981 ALIAS [PNT, HE] LOGIN [ 1,MSM]:Shahid}
C00049 00018 {PONTY0.DMP[PNT, HE] :17:45 25 Jan 1981 ALIAS [PNT, HE] LOGIN [ 1,MSM]:Shahid}
C00050 00019 {PONTY0.DMP[PNT, HE] :18:28 25 Jan 1981 ALIAS [PNT, HE] LOGIN [ 1,MSM]:Shahid}
C00051 00020 {PONTY0.DMP[PNT, HE] :18:39 25 Jan 1981 ALIAS [PNT, HE] LOGIN [ 1,MSM]:Shahid}
C00052 00021 {PONTY0.DMP[PNT, HE] :0:49 26 Jan 1981 ALIAS [PNT, HE] LOGIN [ 1,MSM]:Shahid}
C00053 00022 {PONTY0.DMP[PNT, HE] :1:01 26 Jan 1981 ALIAS [PNT, HE] LOGIN [ 1,MSM]:Shahid}
C00054 00023 {PONTY0.DMP[PNT, HE] :1:27 26 Jan 1981 ALIAS [PNT, HE] LOGIN [ 1,MSM]:Shahid}
C00055 00024 {PONTY0.DMP[PNT, HE] :16:00 26 Jan 1981 ALIAS [TMP,MSM] LOGIN [ 1,MSM]:Shahid}
C00056 00025 {PONTY0.DMP[PNT, HE] :16:08 26 Jan 1981 ALIAS [TMP,MSM] LOGIN [ 1,MSM]:Shahid}
C00057 00026 {PONTY0.DMP[PNT, HE] :16:28 26 Jan 1981 ALIAS [TMP,MSM] LOGIN [ 1,MSM]:Shahid}
C00058 00027 {PONTY0.DMP[PNT, HE] :21:35 26 Jan 1981 ALIAS [PNT, HE] LOGIN [ 1,MSM]:Shahid}
C00059 00028 {PONTY0.DMP[PNT, HE] :21:39 26 Jan 1981 ALIAS [PNT, HE] LOGIN [ 1,MSM]:Shahid}
C00060 00029 {PONTY0.DMP[PNT, HE] :22:14 26 Jan 1981 ALIAS [PNT, HE] LOGIN [ 1,MSM]:Shahid}
C00061 00030 {PONTY0.DMP[PNT, HE] :22:34 26 Jan 1981 ALIAS [PNT, HE] LOGIN [ 1,MSM]:Shahid}
C00062 00031 {PONTY0.DMP[PNT, HE] :1:29 27 Jan 1981 ALIAS [PNT, HE] LOGIN [ 1,MSM]:Shahid}
C00063 00032 {PONTY0.DMP[PNT, HE] :11:19 27 Jan 1981 ALIAS [ 1,MSM] LOGIN [ 1,MSM]:Shahid}
C00066 00033 {PONTY0.DMP[F0\, [] :11:59 27 Jan 1981 ALIAS [PNT, HE] LOGIN [ 1,MSM]:Shahid}
C00067 00034 {PONTY0.DMP[PNT, HE] :23:44 29 Jan 1981 ALIAS [ 1,MSM] LOGIN [ 1,MSM]:Shahid}
C00068 00035 {PONTY0.DMP[F0\, [] :1:00 30 Jan 1981 ALIAS [PNT, HE] LOGIN [ 1,MSM]:Shahid}
C00070 00036 {PONTY0.DMP[F0\, [] :1:29 30 Jan 1981 ALIAS [TMP,MSM] LOGIN [ 1,MSM]:Shahid}
C00072 00037 {PONTY0.DMP[F0\, [] :11:15 30 Jan 1981 ALIAS [PNT, HE] LOGIN [ 1,MSM]:Shahid}
C00074 00038 {PONTY0.DMP[F0\, [] :11:31 30 Jan 1981 ALIAS [PNT, HE] LOGIN [ 1,MSM]:Shahid}
C00075 00039 {PONTY0.DMP[F0\, [] :11:50 30 Jan 1981 ALIAS [PNT, HE] LOGIN [ 1,MSM]:Shahid}
C00076 00040 {PONTY0.DMP[F0\, [] :13:34 30 Jan 1981 ALIAS [ 1,MSM] LOGIN [ 1,MSM]:Shahid}
C00077 00041 {PONTY0.DMP[F0\, [] :22:08 30 Jan 1981 ALIAS [PNT, HE] LOGIN [ 1,MSM]:Shahid}
C00078 00042 {PONTY0.DMP[PNT, HE] :22:28 30 Jan 1981 ALIAS [PNT, HE] LOGIN [ 1,MSM]:Shahid}
C00079 00043 {PONTY0.DMP[PNT, HE] :23:05 30 Jan 1981 ALIAS [PNT, HE] LOGIN [ 1,MSM]:Shahid}
C00080 00044 {5.N .$↑ [$X , *] :23:35 30 Jan 1981 ALIAS [TMP,MSM] LOGIN [ 1,MSM]:Shahid}
C00081 00045 {PONTY0.DMP[TMP,MSM] :15:10 2 Feb 1981 ALIAS [TMP,MSM] LOGIN [ 1,MSM]:Shahid}
C00082 00046 {PONTY0.DMP[TMP,MSM] :13:07 3 Feb 1981 ALIAS [TMP,MSM] LOGIN [ 1,MSM]:Shahid}
C00083 00047 {PONTY0.DMP[TMP,MSM] :13:18 3 Feb 1981 ALIAS [TMP,MSM] LOGIN [ 1,MSM]:Shahid}
C00084 00048 {PONTY0.DMP[TMP,MSM] :13:30 3 Feb 1981 ALIAS [TMP,MSM] LOGIN [ 1,MSM]:Shahid}
C00088 00049 {PONTY0.DMP[TMP,MSM] :14:23 3 Feb 1981 ALIAS [TMP,MSM] LOGIN [ 1,MSM]:Shahid}
C00090 00050 {PONTY0.DMP[TMP,MSM] :14:50 3 Feb 1981 ALIAS [TMP,MSM] LOGIN [ 1,MSM]:Shahid}
C00092 00051 {PONTY0.DMP[PNT, HE] :16:38 4 Feb 1981 ALIAS [PNT, HE] LOGIN [ 1,MSM]:Shahid}
C00093 00052 {PONTY0.DMP[PNT, HE] :16:45 4 Feb 1981 ALIAS [PNT, HE] LOGIN [ 1,MSM]:Shahid}
C00094 00053 {PONTY0.DMP[PNT, HE] :16:50 4 Feb 1981 ALIAS [PNT, HE] LOGIN [ 1,MSM]:Shahid}
C00096 00054 {PONTY0.DMP[PNT, HE] :22:10 4 Feb 1981 ALIAS [PNT, HE] LOGIN [ 1, RV]:rick}
C00098 00055 {PONTY0.DMP[PNT, HE] :22:28 4 Feb 1981 ALIAS [PNT, HE] LOGIN [ 1, RV]:rick}
C00100 00056 {PONTY0.DMP[PNT, HE] :22:44 4 Feb 1981 ALIAS [PNT, HE] LOGIN [ 1, RV]:rick}
C00101 00057 {PONTY0.DMP[PNT, HE] :22:59 4 Feb 1981 ALIAS [PNT, HE] LOGIN [ 1, RV]:rick}
C00107 00058 {PONTY0.DMP[PNT, HE] :0:17 5 Feb 1981 ALIAS [PNT, HE] LOGIN [ 1, RV]:rick}
C00110 00059 {PONTY0.DMP[PNT, HE] :1:54 5 Feb 1981 ALIAS [PNT, HE] LOGIN [ 1,MSM]:Shahid}
C00111 00060 {PONTY0.DMP[J7S, [] :2:30 5 Feb 1981 ALIAS [PNT, HE] LOGIN [ 1,MSM]:Shahid}
C00112 00061 {PONTY0.DMP[PNT, HE] :9:41 5 Feb 1981 ALIAS [ 1,JJC] LOGIN [ 1,JJC]:JOHN}
C00114 00062 {PONTY0.DMP[PNT, HE] :13:51 5 Feb 1981 ALIAS [PNT, HE] LOGIN [ 1,MSM]:Shahid}
C00115 00063 {PONTY0.DMP[PNT, HE] :15:56 5 Feb 1981 ALIAS [PNT, HE] LOGIN [ 1, RV]:Rick}
C00118 00064 {5.N .$↑ [5@ , !@] :22:16 5 Feb 1981 ALIAS [PNT, HE] LOGIN [ 1,MSM]:Shahid}
C00119 00065 {5.N .$↑ [5@ , !@] :1:24 6 Feb 1981 ALIAS [PNT, HE] LOGIN [ 1,MSM]:Shahid}
C00120 00066 {5.N .$↑ [5@ , !@] :2:23 6 Feb 1981 ALIAS [PNT, HE] LOGIN [ 1,MSM]:Shahid}
C00122 00067 {PONTY0.DMP[PNT, HE] :13:29 6 Feb 1981 ALIAS [PNT, HE] LOGIN [ 1,MSM]:Shahid}
C00123 00068 {PONTY0.DMP[PNT, HE] :14:41 7 Feb 1981 ALIAS [ 1,JJC] LOGIN [ 1,JJC]:JOHN}
C00124 00069 {PONTY0.DMP[PNT, HE] :14:46 7 Feb 1981 ALIAS [ 1,JJC] LOGIN [ 1,JJC]:JOHN}
C00125 00070 {PONTY0.DMP[PNT, HE] :22:14 7 Feb 1981 ALIAS [TMP,MSM] LOGIN [ 1,MSM]:Shahid}
C00126 00071 {PONTY0.DMP[TMP,MSM] :22:25 7 Feb 1981 ALIAS [TMP,MSM] LOGIN [ 1,MSM]:Shahid}
C00127 00072 {PONTY0.DMP[PNT, HE] :14:13 9 Feb 1981 ALIAS [PNT, HE] LOGIN [ 1,MSM]:Shahid}
C00128 00073 {PONTY0.DMP[PNT, HE] :15:03 9 Feb 1981 ALIAS [PNT, HE] LOGIN [ 1,MSM]:Shahid}
C00130 00074 {PONTY0.DMP[PNT, HE] :15:08 9 Feb 1981 ALIAS [PNT, HE] LOGIN [ 1,MSM]:Shahid}
C00131 00075 {PONTY0.DMP[PNT, HE] :18:21 9 Feb 1981 ALIAS [ 1,MJF] LOGIN [ 1,MJF]:JOHN JOHNSON}
C00134 00076 {PONTY0.DMP[PNT, HE] :18:59 9 Feb 1981 ALIAS [ 1,MJF] LOGIN [ 1,MJF]:MJF}
C00136 00077 {PONTY0.DMP[PNT, HE] :19:14 9 Feb 1981 ALIAS [ 1,MJF] LOGIN [ 1,MJF]:MJF}
C00137 00078 {PONTY0.DMP[PNT, HE] :19:26 9 Feb 1981 ALIAS [ 1,MJF] LOGIN [ 1,MJF]:MJF}
C00139 00079 {PONTY0.DMP[PNT, HE] :2:12 10 Feb 1981 ALIAS [ 1,BIS] LOGIN [ 1,BIS]:Barry}
C00141 00080 {PONTY0.DMP[PNT, HE] :2:26 10 Feb 1981 ALIAS [ 1,BIS] LOGIN [ 1,BIS]:Barry}
C00142 00081 {PONTY0.DMP[PNT, HE] :14:55 10 Feb 1981 ALIAS [ 1,MSM] LOGIN [ 1,MSM]:Shahid}
C00143 00082 {PONTY0.DMP[TMP,MSM] :17:54 11 Feb 1981 ALIAS [TMP,MSM] LOGIN [ 1,MSM]:Shahid}
C00144 00083 {PONTY0.DMP[PNT, HE] :19:18 11 Feb 1981 ALIAS [ 1,BIS] LOGIN [ 1,BIS]:Barry}
C00146 00084 {PONTY0.DMP[PNT, HE] :22:45 11 Feb 1981 ALIAS [ 1,BIS] LOGIN [ 1,BIS]:Barry}
C00148 00085 {PONTY0.DMP[TMP,MSM] :3:33 12 Feb 1981 ALIAS [ 1,MSM] LOGIN [ 1,MSM]:Shahid}
C00149 00086 {PONTY0.DMP[TMP,MSM] :3:57 12 Feb 1981 ALIAS [ 1,MSM] LOGIN [ 1,MSM]:Shahid}
C00150 00087 {PONTY0.DMP[TMP,MSM] :12:06 12 Feb 1981 ALIAS [TMP,MSM] LOGIN [ 1,MSM]:Shahid}
C00151 00088 {PONTY0.DMP[PNT, HE] :23:05 12 Feb 1981 ALIAS [ 1,MJF] LOGIN [ 1,MJF]:MJF}
C00152 00089 {PONTY0.DMP[PNT, HE] :23:11 12 Feb 1981 ALIAS [ 1,MJF] LOGIN [ 1,MJF]:MJF}
C00153 00090 {PONTY0.DMP[PNT, HE] :23:15 12 Feb 1981 ALIAS [ 1,MJF] LOGIN [ 1,MJF]:MJF}
C00154 00091 {PONTY0.DMP[PNT, HE] :23:18 12 Feb 1981 ALIAS [ 1,MJF] LOGIN [ 1,MJF]:MJF}
C00155 00092 {PONTY0.DMP[PNT, HE] :23:22 12 Feb 1981 ALIAS [ 1,MJF] LOGIN [ 1,MJF]:MJF}
C00156 00093 {PONTY0.DMP[PNT, HE] :16:18 13 Feb 1981 ALIAS [PNT, HE] LOGIN [ 1,JDV]:}
C00160 00094 {PONTY0.DMP[PNT, HE] :17:39 13 Feb 1981 ALIAS [PNT, HE] LOGIN [ 1,MSM]:Shahid}
C00161 00095 {PONTY0.DMP[PNT, HE] :17:43 13 Feb 1981 ALIAS [PNT, HE] LOGIN [ 1,MSM]:Shahid}
C00162 00096 {PONTY0.DMP[TMP,MSM] :18:22 13 Feb 1981 ALIAS [TMP,MSM] LOGIN [ 1,MSM]:Shahid}
C00163 00097 {PONTY0.DMP[PNT, HE] :1:58 14 Feb 1981 ALIAS [ 1,BIS] LOGIN [ 1,BIS]:Barry}
C00166 00098 {PONTY0.DMP[PNT, HE] :2:33 14 Feb 1981 ALIAS [ 1,BIS] LOGIN [ 1,BIS]:Barry}
C00167 00099 {PONTY0.DMP[PNT, HE] :2:38 14 Feb 1981 ALIAS [ 1,BIS] LOGIN [ 1,BIS]:Barry}
C00168 00100 {PONTY0.DMP[TMP,MSM] :0:53 16 Feb 1981 ALIAS [ 1,BIS] LOGIN [ 1,BIS]:Barry}
C00172 00101 {PONTY0.DMP[TMP,MSM] :2:15 16 Feb 1981 ALIAS [ 1,BIS] LOGIN [ 1,BIS]:Barry}
C00173 00102 {PONTY0.DMP[TMP,MSM] :14:45 17 Feb 1981 ALIAS [TMP,MSM] LOGIN [ 1,MSM]:Shahid}
C00174 00103 {PONTY0.DMP[PNT, HE] :17:17 17 Feb 1981 ALIAS [ 1,BIS] LOGIN [ 1,BIS]:Barry}
C00175 00104 {PONTY0.DMP[TMP,MSM] :17:27 17 Feb 1981 ALIAS [ 1,BIS] LOGIN [ 1,BIS]:Barry}
C00176 00105 {PONTY0.DMP[PNT, HE] :17:39 17 Feb 1981 ALIAS [ 1,BIS] LOGIN [ 1,BIS]:Barry}
C00177 00106 {PONTY0.DMP[TMP,MSM] :18:06 17 Feb 1981 ALIAS [NEW,BIS] LOGIN [ 1,BIS]:Barry}
C00178 00107 {PONTY0.DMP[TMP,MSM] :18:11 17 Feb 1981 ALIAS [ 1,BIS] LOGIN [ 1,BIS]:Barry}
C00179 00108 {PONTY0.DMP[TMP,MSM] :18:13 17 Feb 1981 ALIAS [ 1,BIS] LOGIN [ 1,BIS]:Barry}
C00180 00109 {PONTY0.DMP[TMP,MSM] :1:36 18 Feb 1981 ALIAS [ 1,BIS] LOGIN [ 1,BIS]:Barry}
C00185 00110 {PONTY0.DMP[TMP,MSM] :2:31 18 Feb 1981 ALIAS [ 1,BIS] LOGIN [ 1,BIS]:Barry}
C00186 00111 {PONTY0.DMP[TMP,MSM] :1:52 19 Feb 1981 ALIAS [ AL,BIS] LOGIN [ 1,BIS]:Barry}
C00187 00112 {PONTY0.DMP[TMP,MSM] :14:51 19 Feb 1981 ALIAS [ 1,BIS] LOGIN [ 1,BIS]:Barry}
C00188 00113 {PONTY0.DMP[TMP,MSM] :15:53 19 Feb 1981 ALIAS [TMP,MSM] LOGIN [ 1,MSM]:Shahid}
C00189 00114 {PONTY0.DMP[TMP,MSM] :18:29 19 Feb 1981 ALIAS [TMP,MSM] LOGIN [ 1,MSM]:Shahid}
C00190 00115 {PONTY0.DMP[TMP,MSM] :16:10 23 Feb 1981 ALIAS [TMP,MSM] LOGIN [ 1,MSM]:Shahid}
C00191 00116 {PONTY0.DMP[TMP,MSM] :17:19 23 Feb 1981 ALIAS [TMP,MSM] LOGIN [ 1,MSM]:Shahid}
C00192 00117 {PONTY0.DMP[TMP,MSM] :2:07 24 Feb 1981 ALIAS [TMP,MSM] LOGIN [ 1,MSM]:Shahid}
C00193 00118 {PONTY0.DMP[TMP,MSM] :2:52 24 Feb 1981 ALIAS [ AL,BIS] LOGIN [ 1,BIS]:Barry}
C00196 00119 {PONTY0.DMP[TMP,MSM] :3:20 24 Feb 1981 ALIAS [ AL,BIS] LOGIN [ 1,BIS]:Barry}
C00197 00120 {PONTY0.DMP[TMP,MSM] :3:31 24 Feb 1981 ALIAS [ AL,BIS] LOGIN [ 1,BIS]:Barry}
C00199 00121 {PONTY0.DMP[TMP,MSM] :3:55 24 Feb 1981 ALIAS [TMP,MSM] LOGIN [ 1,MSM]:Shahid}
C00201 00122 {PONTY0.DMP[TMP,MSM] :14:44 24 Feb 1981 ALIAS [TMP,MSM] LOGIN [ 1,MSM]:Shahid}
C00202 00123 {PONTY0.DMP[TMP,MSM] :15:01 24 Feb 1981 ALIAS [TMP,MSM] LOGIN [ 1,MSM]:Shahid}
C00203 00124 {PONTY0.DMP[TMP,MSM] :15:06 24 Feb 1981 ALIAS [TMP,MSM] LOGIN [ 1,MSM]:Shahid}
C00204 00125 {PONTY0.DMP[TMP,MSM] :17:35 24 Feb 1981 ALIAS [TMP,MSM] LOGIN [ 1,MSM]:Shahid}
C00205 00126 {PONTY0.DMP[TMP,MSM] :17:45 24 Feb 1981 ALIAS [TMP,MSM] LOGIN [ 1,MSM]:Shahid}
C00206 00127 {PONTY0.DMP[TMP,MSM] :0:37 25 Feb 1981 ALIAS [TMP,MSM] LOGIN [ 1,MSM]:Shahid}
C00208 00128 {PONTY0.DMP[TMP,MSM] :3:27 26 Feb 1981 ALIAS [TMP,MSM] LOGIN [ 1,MSM]:Shahid}
C00210 00129 {PONTY0.DMP[TMP,MSM] :13:18 26 Feb 1981 ALIAS [TMP,MSM] LOGIN [ 1,MSM]:Shahid}
C00211 00130 {PONTY0.DMP[TMP,MSM] :15:40 26 Feb 1981 ALIAS [TMP,MSM] LOGIN [ 1,MSM]:Shahid}
C00212 00131 {PONTY0.DMP[TMP,MSM] :16:04 27 Feb 1981 ALIAS [TMP,MSM] LOGIN [ 1,MSM]:Shahid}
C00213 00132 {PONTY0.DMP[TMP,MSM] :23:26 27 Feb 1981 ALIAS [ AL,BIS] LOGIN [ 1,BIS]:Barry}
C00214 00133 {5.N .$↑ [$X , *] :2:18 3 Mar 1981 ALIAS [PNT, HE] LOGIN [ 1,MSM]:Shahid}
C00215 00134 {BOINTY.DMP[PNT, HE] :3:06 3 Mar 1981 ALIAS [PNT, HE] LOGIN [ 1,MSM]:Shahid}
C00217 00135 {BOINTY.DMP[PNT, HE] :15:10 3 Mar 1981 ALIAS [PNT, HE] LOGIN [ 1,MSM]:Shahid}
C00219 00136 {BOINTY.DMP[PNT, HE] :15:51 3 Mar 1981 ALIAS [ 1,JKS] LOGIN [ 1,JKS]:Ken}
C00220 00137 {PONTY0.DMP[TMP,MSM] :1:28 4 Mar 1981 ALIAS [TMP,MSM] LOGIN [ 1,MSM]:Shahid}
C00222 00138 {PONTY0.DMP[TMP,MSM] :1:29 4 Mar 1981 ALIAS [TMP,MSM] LOGIN [ 1,MSM]:Shahid}
C00223 00139 {BOINTY.DMP[PNT, HE] :1:47 4 Mar 1981 ALIAS [TMP,MSM] LOGIN [ 1,MSM]:Shahid}
C00226 00140 {BOINTY.DMP[PNT, HE] :1:59 4 Mar 1981 ALIAS [TMP,MSM] LOGIN [ 1,MSM]:Shahid}
C00228 00141 {BOINTY.DMP[PNT, HE] :2:07 4 Mar 1981 ALIAS [TMP,MSM] LOGIN [ 1,MSM]:Shahid}
C00230 00142 {BOINTY.DMP[PNT, HE] :2:09 4 Mar 1981 ALIAS [TMP,MSM] LOGIN [ 1,MSM]:Shahid}
C00231 00143 {5.N .$↑ [$X , *] :2:45 4 Mar 1981 ALIAS [TMP,MSM] LOGIN [ 1,MSM]:Shahid}
C00232 00144 {5.N .$↑ [$X , *] :3:27 4 Mar 1981 ALIAS [TMP,MSM] LOGIN [ 1,MSM]:Shahid}
C00233 00145 {PONTY0.DMP[TMP,MSM] :3:35 4 Mar 1981 ALIAS [TMP,MSM] LOGIN [ 1,MSM]:Shahid}
C00234 00146 {5.N .$↑ [$X , *] :15:13 4 Mar 1981 ALIAS [TMP,MSM] LOGIN [ 1,MSM]:Shahid}
C00236 00147 {5.N .$↑ [$X , *] :15:32 4 Mar 1981 ALIAS [TMP,MSM] LOGIN [ 1,MSM]:Shahid}
C00240 00148 {PONTY0.DMP[TMP,MSM] :16:08 4 Mar 1981 ALIAS [TMP,MSM] LOGIN [ 1,MSM]:Shahid}
C00244 00149 {PONTY0.DMP[TMP,MSM] :2:25 6 Mar 1981 ALIAS [TMP,MSM] LOGIN [ 1,MSM]:Shahid}
C00245 00150 {5.N .$↑ [$X , *] :2:32 6 Mar 1981 ALIAS [TMP,MSM] LOGIN [ 1,MSM]:Shahid}
C00246 00151 {5.N .$↑ [$X , *] :2:38 6 Mar 1981 ALIAS [TMP,MSM] LOGIN [ 1,MSM]:Shahid}
C00247 00152 {PONTY0.DMP[TMP,MSM] :3:50 6 Mar 1981 ALIAS [TMP,MSM] LOGIN [ 1,MSM]:Shahid}
C00248 00153 {PONTY0.DMP[TMP,MSM] :3:54 6 Mar 1981 ALIAS [TMP,MSM] LOGIN [ 1,MSM]:Shahid}
C00249 00154 {5.N .$↑ [$X , *] :4:46 6 Mar 1981 ALIAS [TMP,MSM] LOGIN [ 1,MSM]:Shahid}
C00250 00155 {PONTY0.DMP[TMP,MSM] :4:59 6 Mar 1981 ALIAS [TMP,MSM] LOGIN [ 1,MSM]:Shahid}
C00251 00156 {BOINTY.DMP[PNT, HE] :5:06 6 Mar 1981 ALIAS [TMP,MSM] LOGIN [ 1,MSM]:Shahid}
C00252 00157 {PONTY0.DMP[TMP,MSM] :12:51 6 Mar 1981 ALIAS [TMP,MSM] LOGIN [ 1,MSM]:Shahid}
C00253 00158 {PONTY0.DMP[TMP,MSM] :15:56 6 Mar 1981 ALIAS [TMP,MSM] LOGIN [ 1,MSM]:Shahid}
C00254 00159 {PONTY0.DMP[TMP,MSM] :17:31 6 Mar 1981 ALIAS [TMP,MSM] LOGIN [ 1,MSM]:Shahid}
C00255 00160 {5.N .$↑ [$X , *] :17:57 6 Mar 1981 ALIAS [TMP,MSM] LOGIN [ 1,MSM]:Shahid}
C00256 00161 {5.N .$↑ [$X , *] :18:13 6 Mar 1981 ALIAS [TMP,MSM] LOGIN [ 1,MSM]:Shahid}
C00257 00162 {PONTY0.DMP[PNT, HE] :1:24 7 Mar 1981 ALIAS [PNT, HE] LOGIN [ 1,MSM]:Shahid}
C00258 00163 {PONTY0.DMP[PNT, HE] :1:30 7 Mar 1981 ALIAS [PNT, HE] LOGIN [ 1,MSM]:Shahid}
C00259 00164 {PONTY0.DMP[PNT, HE] :1:32 7 Mar 1981 ALIAS [PNT, HE] LOGIN [ 1,MSM]:Shahid}
C00260 00165 {PONTY0.DMP[PNT, HE] :1:43 7 Mar 1981 ALIAS [PNT, HE] LOGIN [ 1,MSM]:Shahid}
C00261 00166 {PONTY0.DMP[PNT, HE] :1:51 7 Mar 1981 ALIAS [PNT, HE] LOGIN [ 1,MSM]:Shahid}
C00262 00167 {PONTY0.DMP[PNT, HE] :18:14 10 Mar 1981 ALIAS [ 1,MSM] LOGIN [ 1,MSM]:Shahid}
C00263 00168 {PONTY0.DMP[PNT, HE] :12:27 11 Mar 1981 ALIAS [TMP,MSM] LOGIN [ 1,MSM]:Shahid}
C00264 00169 {PONTY0.DMP[TMP,MSM] :2:30 12 Mar 1981 ALIAS [TMP,MSM] LOGIN [ 1,MSM]:Shahid}
C00266 00170 {PONTY0.DMP[TMP,MSM] :2:42 12 Mar 1981 ALIAS [TMP,MSM] LOGIN [ 1,MSM]:Shahid}
C00268 00171 {5.N .$↑ [$X , *] :2:50 12 Mar 1981 ALIAS [TMP,MSM] LOGIN [ 1,MSM]:Shahid}
C00269 00172 {5.N .$↑ [$X , *] :2:56 12 Mar 1981 ALIAS [TMP,MSM] LOGIN [ 1,MSM]:Shahid}
C00270 00173 {5.N .$↑ [$X , *] :3:08 12 Mar 1981 ALIAS [TMP,MSM] LOGIN [ 1,MSM]:Shahid}
C00272 00174 {PONTY0.DMP[PNT, HE] :12:01 12 Mar 1981 ALIAS [PUM, HE] LOGIN [ 1, RV]:Rick}
C00273 00175 {5.N .$↑ [$X , *] :12:09 12 Mar 1981 ALIAS [TMP,MSM] LOGIN [ 1,MSM]:Shahid}
C00274 00176 {PONTY0.DMP[PNT, HE] :12:31 12 Mar 1981 ALIAS [PUM, HE] LOGIN [ 1, RV]:Rick}
C00276 00177 {PONTY0.DMP[PNT, HE] :13:13 12 Mar 1981 ALIAS [PUM, HE] LOGIN [ 1, RV]:Rick}
C00282 00178 {PONTY0.DMP[PNT, HE] :15:17 12 Mar 1981 ALIAS [PUM, HE] LOGIN [ 1, RV]:Rick}
C00283 00179 {PONTY0.DMP[PNT, HE] :16:15 12 Mar 1981 ALIAS [PUM, HE] LOGIN [ 1, RV]:Rick}
C00284 00180 {PONTY0.DMP[PNT, HE] :21:15 12 Mar 1981 ALIAS [PUM, HE] LOGIN [ 1, RV]:Rick}
C00286 00181 {PONTY0.DMP[PNT, HE] :22:00 12 Mar 1981 ALIAS [PUM, HE] LOGIN [ 1, RV]:Rick}
C00288 00182 {PONTY0.DMP[PNT, HE] :22:52 12 Mar 1981 ALIAS [PUM, HE] LOGIN [ 1, RV]:Rick}
C00289 00183 {5.N .$↑ [$X , *] :1:01 13 Mar 1981 ALIAS [TMP,MSM] LOGIN [ 1,MSM]:Shahid}
C00291 00184 {5.N .$↑ [$X , *] :1:23 13 Mar 1981 ALIAS [TMP,MSM] LOGIN [ 1,MSM]:Shahid}
C00293 00185 {5.N .$↑ [$X , *] :1:37 13 Mar 1981 ALIAS [TMP,MSM] LOGIN [ 1,MSM]:Shahid}
C00294 00186 {PONTY0.DMP[TMP,MSM] :2:51 13 Mar 1981 ALIAS [TMP,MSM] LOGIN [ 1,MSM]:Shahid}
C00296 00187 {PONTY0.DMP[TMP,MSM] :14:59 13 Mar 1981 ALIAS [TMP,MSM] LOGIN [ 1,MSM]:Shahid}
C00299 00188 {PONTY0.DMP[TMP,MSM] :16:08 13 Mar 1981 ALIAS [TMP,MSM] LOGIN [ 1,MSM]:Shahid}
C00300 00189 {5.N .$↑ [$X , *] :20:21 14 Mar 1981 ALIAS [TMP,MSM] LOGIN [ 1,MSM]:Shahid}
C00301 00190 {PONTY0.DMP[PNT, HE] :22:41 14 Mar 1981 ALIAS [PNT, HE] LOGIN [ 1,MSM]:Shahid}
C00303 00191 {PONTY0.DMP[PNT, HE] :16:07 15 Mar 1981 ALIAS [TMP,MSM] LOGIN [ 1,MSM]:Shahid}
C00308 ENDMK
C⊗;
{PONTY0.DMP[PNT, HE] :14:22 6 Jan 1981 ALIAS [PNT, HE] LOGIN [ 1,MSM]:Shahid}
SAVECOREIMAGE P0
{ continued writing again at 14:23 6 Jan 1981}
MOVE BARM TO BPARK
MOVE BARM TO BPARK
W←4
EXIT
{exiting at 14:28 6 Jan 1981
$FPMAX=6
$INTMAX=5
$PCDMAX=25}
{5.N .$↑ [$X , *] :17:38 19 Jan 1981 ALIAS [TMP,MSM] LOGIN [ 1,MSM]:Shahid}
PRINT(GARM);
PRINT(GARM);
SETSTATUS(PPCODE);
PRINT(GARM)
NODISPLAY
PRINT(CRLF,GPARK)
PRINT(CRLF,GARM)
{PONTY0.DMP[TMP,MSM] :15:34 20 Jan 1981 ALIAS [TMP,MSM] LOGIN [ 1,MSM]:Shahid}
SHOW GARM
PRINT(GARM,CRLF)
PRINT(GARM,CRLF)
PRINT(GARM,CRLF)
PRINT(GARM-3*ZHAT,CRLF)
MOVE BARM TO BPARK
{PONTY0.DMP[PNT, HE] :3:52 24 Jan 1981 ALIAS [TMP,MSM] LOGIN [ 1,MSM]:Shahid}
NODISPLAY
QREAD FOO.PNT
FOO
EXIT
{exiting at 3:53 24 Jan 1981
$FPMAX=6
$INTMAX=5
$PCDMAX=25}
{PONTY0.DMP[PNT, HE] :15:56 24 Jan 1981 ALIAS [TMP,MSM] LOGIN [ 1,MSM]:Shahid}
READ FLSHDT.DAT[1,MSM]
NODISPLAY
SAVECOREIMAGE F0
{PONTY0.DMP[PNT, HE] :16:01 24 Jan 1981 ALIAS [TMP,MSM] LOGIN [ 1,MSM]:Shahid}
READ MSMPRC.PNT
SAVECOREIMAGE F2
{ continued writing again at 16:04 24 Jan 1981}
QREAD FOO.FOO
END
;
Need identifier here
MSMEND;
⊂←⊃ or ⊂:⊃ is required here
QREAD FOO.FOO
END
;
Need identifier here
MSMEND;
⊂←⊃ or ⊂:⊃ is required here
QREAD FOO.FOO
END
;
Need identifier here
MSMEND;
⊂←⊃ or ⊂:⊃ is required here
QREAD FOO.FOO
MSMEND
;
Need identifier here
QREAD FOO.FOO
MSMEND
;
Need identifier here
QREAD FOO.FOO
MSMEND
;
Need identifier here
QREAD FOO.FOO
{PONTY0.DMP[PNT, HE] :16:44 24 Jan 1981 ALIAS [PNT, HE] LOGIN [ 1,MSM]:Shahid}
SAVECOREIMAGE P0
{5.N .$↑ [$X , *] :16:49 24 Jan 1981 ALIAS [PNT, HE] LOGIN [ 1,MSM]:Shahid}
SAVECOREIMAGE P0
{ continued writing again at 16:50 24 Jan 1981}
READ FLSHDT.DAT[1,MSM]
SAVECOREIMAGE F0[TMP,MSM]
{ continued writing again at 16:53 24 Jan 1981}
NODISPLAY
READ MSMPRC.PNT[TMP,MSM]
SAVECOREIMAGE F2[TMP,MSM]
{ continued writing again at 17:00 24 Jan 1981}
QREAD FOO.FOO[TMP,MSM]
{PONTY0.DMP[PNT, HE] :17:14 24 Jan 1981 ALIAS [PNT, HE] LOGIN [ 1,MSM]:Shahid}
SAVECOREIMAGE P0
{ continued writing again at 17:15 24 Jan 1981}
READ FLSHDT.DAT[1,MSM]
NODISPLAY
SAVECOREIMAGE F0[TMP,MSM]
{ continued writing again at 17:20 24 Jan 1981}
READ MSMPRC.PNT[TMP,MSM]
SAVECOREIMAGE F2[TMP,MSM]
{ continued writing again at 17:23 24 Jan 1981}
QREAD FOO.FOO[TMP,MSM]
RELEASE ;
; is not a valid term in an expression
QREAD FOO.FOO[TMP,MSM]
RELEASE;
Need at least 1 non-default parameters
QREAD FOO.FOO[TMP,MSM]
QREAD FOO.FOO[TMP,MSM]
);GUIDED_INSERT REFF
2.5 2 1
Need at least 4 non-default parameters
QREAD MSM3.TMP[TMP,MSM]
QREAD FOO.FOO
FOO.FOO is nonexistent
QREAD FOO.FOO[TMP,MSM]
);GUIDED_INSERT REFF
2.5 2 1
Need at least 4 non-default parameters
QREAD FOO.FOO[TMP,MSM]
QREAD FOO.FOO[TMP,MSM]
PICK_AND_PLACE BULB
[FLASHLIGHT_NO] 0.4 BULBF+.2*ZHAT
⊂←⊃ or ⊂:⊃ is required here
QREAD FOO.FOO[TMP,MSM]
MOVESM ARM
OBJ-UP4 WRT OBJ
MACRO EXPANSION: need closed parenthesis here
QREAD FOO.FOO[TMP,MSM]
MOVESM ARM
(OBJ-UP4 WRT OBJ)
MACRO EXPANSION: need closed parenthesis here
SHOW ARM
QREAD FOO.FOO[TMP,MSM]
{PONTY0.DMP[PNT, HE] :17:46 24 Jan 1981 ALIAS [PNT, HE] LOGIN [ 1,MSM]:Shahid}
SAVECOREIMAGE P0
{ continued writing again at 17:47 24 Jan 1981}
QREAD FLSHDT.DAT[1,MSM]
NODISPLAY
QREAD MSMPRC.PNT[TMP,MSM]
QREAD FOO.FOO[TP,MSM]
FOO.FOO[TP,MSM] has illegal PPN
QREAD FOO.FOO[TMP,MSM]
{PONTY0.DMP[PNT, HE] :17:53 24 Jan 1981 ALIAS [PNT, HE] LOGIN [ 1,MSM]:Shahid}
QREAD FLSHDT.DAT[1,MSM]
NODISPLAY
QREAD MSMPRC.PNT[TMP,MSM]
SAVECOREIMAGE F2
{ continued writing again at 17:57 24 Jan 1981}
QREAD FOO.FOO[TMP,MSM]
GET REF
0.625
Need at least 2 non-default parameters
QREAD FOO.FOO[TMP,MSM]
RELEASE
( REF
⊂;⊃ or ⊂END⊃ is required here
QREAD FOO.FOO[TMP,MSM]
RELEASE
( REF
⊂;⊃ or ⊂END⊃ is required here
QREAD FOO.FOO[TMP,MSM]
RELEASE REF ;
; is not a valid term in an expression
END
;
END:: is valid only inside a block
MSMEND;
⊂←⊃ or ⊂:⊃ is required here
QREAD FOO.FOO[TMP,MSM]
RELEASE
( REF
⊂;⊃ or ⊂END⊃ is required here
QREAD FOO.FOO[TMP,MSM]
QREAD FOO.FOO[TMP,MSM]
EXIT
{exiting at 18:06 24 Jan 1981
$FPMAX=6
$INTMAX=7
$PCDMAX=219}
{PONTY0.DMP[PNT, HE] :2:26 25 Jan 1981 ALIAS [PNT, HE] LOGIN [ 1,MSM]:Shahid}
SAVECOREIMAGE P0
{ continued writing again at 2:27 25 Jan 1981}
QREAD FLSHDT.DAT[1,MSM]
QREAD MSMPRC.PNT[TMP,MSM]
SAVECOREIMAGE F3[TMP,MSM]
{ continued writing again at 2:32 25 Jan 1981}
QREAD FOO.FOO[TMP,MSM]
GET REF
0.625
Need at least 2 non-default parameters
;
W←4;
QREAD FOO.FOO[TMP,MSM]
QREAD FOO.FOO[TMP,MSM]
MSM BARM OBJ
-UP4 WRT OBJ
NEED MMM,MMS,FMM OR FMS HERE
MMM DEST
-UP4 WRT DEST
⊂←⊃ or ⊂:⊃ is required here
MMS DEST
⊂←⊃ or ⊂:⊃ is required here
END
;
END:: is valid only inside a block
MSMEND;
⊂←⊃ or ⊂:⊃ is required here
QREAD FOO.FOO[TMP,MSM]
{PONTY0.DMP[PNT, HE] :16:30 25 Jan 1981 ALIAS [PNT, HE] LOGIN [ 1,MSM]:Shahid}
NODISPLAY
QREAD FLSHDT.DAT[1,MSM]
QREAD MSMPRC.PNT
MSMPRC.PNT is nonexistent
QREAD MSMPRC.PNT[TMP,MSM]
SAVECOREIMAGE F3
{PONTY0.DMP[PNT, HE] :16:48 25 Jan 1981 ALIAS [PNT, HE] LOGIN [ 1,MSM]:Shahid}
QREAD FLSHDT.DAT[1,MSM]
QREAD MSMPRC.PNT[TMP,MSM]
NODISPLAY
SAVECOREIMAGE F3
{ continued writing again at 16:54 25 Jan 1981}
READ FOO.FOO
FOO.FOO is nonexistent
{PONTY0.DMP[PNT, HE] :17:05 25 Jan 1981 ALIAS [PNT, HE] LOGIN [ 1,MSM]:Shahid}
<ESCAPE> I termination
UP4←4*ZHAT
<ESCAPE> I termination
SETSTATUS(NOELF)
UP4←4*ZHAT
{PONTY0.DMP[PNT, HE] :17:07 25 Jan 1981 ALIAS [PNT, HE] LOGIN [ 1,MSM]:Shahid}
<ESCAPE> I termination
SETSTATUS(NOELF)
UP4←4*ZHAT
READ FOO.FOO[TMP,MSM]
{PONTY0.DMP[PNT, HE] :17:45 25 Jan 1981 ALIAS [PNT, HE] LOGIN [ 1,MSM]:Shahid}
QREAD FLSHDT.DAT[1,MSM]
FRAME START
; { STARTING POSITION ABOVE THE WORKPLACE }
undeclared identifier required
FRAME REF
; { REFLECTOR INITIAL POSITION }
undeclared identifier required
FRAME REFF
; { REFLECTOR FINAL POSITION }
undeclared identifier required
FRAME BRET
; { BULB RETAINER INITIAL POSITION }
undeclared identifier required
<ESCAPE> I termination
READ FOO.FOO
{PONTY0.DMP[PNT, HE] :18:28 25 Jan 1981 ALIAS [PNT, HE] LOGIN [ 1,MSM]:Shahid}
QREAD FLSHDT.DAT[1,MSM]
QREAD MSMPRC.PNT[TMP,MSM]
SAVECOREIMAGE F4
{ continued writing again at 18:31 25 Jan 1981}
<ESCAPE> I termination
SETSTATUS(NOELF)
READ FOO.FOO[TMP,MSM]
READ FOO.FOO[TMP,MSM]
{PONTY0.DMP[PNT, HE] :18:39 25 Jan 1981 ALIAS [PNT, HE] LOGIN [ 1,MSM]:Shahid}
READ FOO.FOO[TMP,MSM]
PICK_AND_PLACE(
BULB[FLASHLIGHT_NO],0.4,BULBF+.2*ZHAT);
⊂←⊃ or ⊂:⊃ is required here
NODISPLAY
PROCEDURE PICK_AND_PLACE(FRAME F1; SCALAR A; TRANS T);
;
{PONTY0.DMP[PNT, HE] :0:49 26 Jan 1981 ALIAS [PNT, HE] LOGIN [ 1,MSM]:Shahid}
QREAD FLSHDT.DAT[1,MSM]
QREAD MSMPRC.PNT[TMP,MSM]
SAVECOREIMAGE F4
{PONTY0.DMP[PNT, HE] :1:01 26 Jan 1981 ALIAS [PNT, HE] LOGIN [ 1,MSM]:Shahid}
SETSTATUS(NOELF)
NODISPLAY
READ FOO.FOO[TMP,MSM]
);SENSE FZ
> 0 STOP
⊂←⊃ or ⊂:⊃ is required here
);REPLACE_DRIVER(
SCR);
⊂←⊃ or ⊂:⊃ is required here
BAIL(BREAK("ERROR");!!GO;);
{PONTY0.DMP[PNT, HE] :1:27 26 Jan 1981 ALIAS [PNT, HE] LOGIN [ 1,MSM]:Shahid}
READ FOO.FOO
FOO.FOO is nonexistent
READ FOO.FOO[TMP,MSM]
FMS
REFAF # 1.5*ZHAT
Need an identifier or array element here
BAIL(BREAK("ERROR");!!GO);
{PONTY0.DMP[PNT, HE] :16:00 26 Jan 1981 ALIAS [TMP,MSM] LOGIN [ 1,MSM]:Shahid}
SAVECOREIMAGE P0[PNT,HE]
{PONTY0.DMP[PNT, HE] :16:08 26 Jan 1981 ALIAS [TMP,MSM] LOGIN [ 1,MSM]:Shahid}
SAVECOREIMAGE P0[PNT,HE]
{PONTY0.DMP[PNT, HE] :16:28 26 Jan 1981 ALIAS [TMP,MSM] LOGIN [ 1,MSM]:Shahid}
EXIT
{exiting at 18:16 26 Jan 1981
$FPMAX=6
$INTMAX=5
$PCDMAX=25}
{PONTY0.DMP[PNT, HE] :21:35 26 Jan 1981 ALIAS [PNT, HE] LOGIN [ 1,MSM]:Shahid}
NODISPLAY
REDISPLAY
SAVECOREIMAGE P1
{PONTY0.DMP[PNT, HE] :21:39 26 Jan 1981 ALIAS [PNT, HE] LOGIN [ 1,MSM]:Shahid}
QREAD FLSHDT.DAT[1,MSM]
QREAD MSMPRC.PNT[TMP,MSM]
QREAD FOO.FOO[TMP,MSM]
NODISPLAY
SAVECOREIMAGE F5
{ continued writing again at 21:53 26 Jan 1981}
QREAD FOO2.FOO
FOO2.FOO is nonexistent
QREAD FOO2.FOO[TMP,MSM]
MSM ARM FRAME(R*ROT(ZHAT,-90),V))
) is not a valid term in an expression
QREAD FOO2.FOO[TMP,MSM]
{PONTY0.DMP[PNT, HE] :22:14 26 Jan 1981 ALIAS [PNT, HE] LOGIN [ 1,MSM]:Shahid}
SAVECOREIMAGE P2
{PONTY0.DMP[PNT, HE] :22:34 26 Jan 1981 ALIAS [PNT, HE] LOGIN [ 1,MSM]:Shahid}
NODISPLAY
QREAD FLSHDT.DAT[1,MSM]
QREAD MSMPRC.PNT[TMP,MSM]
READ FOO.FOO[TMP,MSM]
READ FOO2.FOO[TMP,MSM]
READ FOO2.FOO[TMP,MSM]
{PONTY0.DMP[PNT, HE] :1:29 27 Jan 1981 ALIAS [PNT, HE] LOGIN [ 1,MSM]:Shahid}
NODISPLAY; QREAD FLSHDT.DAT[1,MSM];QREAD MSMPRC.PNT[TMP,MSM]
READ FLASH.MSM[TMP,MSM]
EXIT
{exiting at 1:33 27 Jan 1981
$FPMAX=6
$INTMAX=7
$PCDMAX=842}
{PONTY0.DMP[PNT, HE] :11:19 27 Jan 1981 ALIAS [ 1,MSM] LOGIN [ 1,MSM]:Shahid}
CASTING0←BARM
OPEN BHAND TO 3.8
EDIT CASTING0
MOVE BARM TO CASTING0
MOVE BARM TO BARM+.2*ZHAT
CASTING0←BARM
CENTER BARM
CASTING1←BARM
OPEN BHAND TO 3.8
MOVE BARM TO CASTING0 WITH DEPARTURE=-3*ZHAT WITH APPROACH=-3*ZHAT
NODISPLAY
PROCEDURE SHIFT(FRAME FINAL_POS);
BEGIN
OPEN BHAND TO 3.8;
MOVE BARM TO B
MOVE BARM TO B
UNEXPECTED TOKEN FOUND ⊂B⊃
<ESCAPE> I termination
DEBUGON
PROCEDURE SHIFT(FRAME FINAL_POS);
BEGIN
OPEN BHAND TO 3.8;
MOVE BARM TO CASTING0 WITH DEPARTURE=-3*ZHAT WITH APPROACH=-3*ZHAT;
CENTER BARM;
MOVE BARM TO FINAL_POS WITH APPROACH=-3*ZHAT;
END;
SCALAR I;
FOR I←1 STEP 1 UNTIL 3 DO SHIFT(CASTING1+3*XHAT)
SHOW FINAL_POS
SHOW FINAL_POS
SHOW: Need a macro, procedure or variable name after SHOW
FOR I←1 STEP 1 UNTIL 3 DO SHIFT(CASTING1+3*I*XHAT)
FOR I←1 STEP 1 UNTIL 3 DO SHIFT(CASTING1+3*XHAT*I)
FOR I←1 STEP 1 UNTIL 3 DO SHIFT(CASTING1+3*XHAT*I)
QREAD MSMPRC.PNT[TMP,MSM]
GET(CASTING0,3.5)
DEBUGOFF;
PUT(CASTING0,CASTING1)
RELEASE
(CASTING0)
GET(CASTING0,3.5,.4)
GET(CASTING0,3.5,
.4)
Need right paren after argument list
QREAD FOO4.FOO[TMP,MSM]
FOO4.FOO[TMP,MSM] is nonexistent
QREAD FOO4.FOO[1,MSM]
IF |BHAND-WIDTH|>TOL THEN ABORT(⊂
"ERROR IN GET; PUT OBJECT IN HAND"⊃);
⊂ is not a valid term in an expression
QREAD FOO4.FOO[1,MSM]
GET2(CASTING0,3.5,.5)
QREAD FOO4.FOO[1,MSM]
GET3(CASTING0,3.5,.5)
RELEASE(CASTING0)
GET3(CASTING0,3.5,.5)
RELEASE(CASTING0)
GET3(CASTING0,3.5)
RELEASE(CASTING0)
{PONTY0.DMP[F0\, [] :11:59 27 Jan 1981 ALIAS [PNT, HE] LOGIN [ 1,MSM]:Shahid}
SAVECOREIMAGE P5
{PONTY0.DMP[PNT, HE] :23:44 29 Jan 1981 ALIAS [ 1,MSM] LOGIN [ 1,MSM]:Shahid}
HELP
EXIT
{exiting at 23:47 29 Jan 1981
$FPMAX=6
$INTMAX=5
$PCDMAX=25}
{PONTY0.DMP[F0\, [] :1:00 30 Jan 1981 ALIAS [PNT, HE] LOGIN [ 1,MSM]:Shahid}
QREAD MSMPRC.PNT[TMP,MSM]
SAVECOREIMAGE MSM
{ continued writing again at 1:04 30 Jan 1981}
SETSTATUS(NOELF)
NODISPLAY
C0←BARM
CASTING←C0;
GET(CASTING,3.5,.5)
CASTINGF←BARM
PUT(CASTING,CASTINGF);
RELEASE CASTING
RELEASE CASTING
Need at least 1 non-default parameters
RELEASE(CASTING);
CASTING←C0
{PONTY0.DMP[F0\, [] :1:29 30 Jan 1981 ALIAS [TMP,MSM] LOGIN [ 1,MSM]:Shahid}
QREAD MSMPR2.PNT
SAVECOREIMAGE MSM2
{ continued writing again at 1:31 30 Jan 1981}
SETSTATUS(NOELF)
{PONTY0.DMP[F0\, [] :11:15 30 Jan 1981 ALIAS [PNT, HE] LOGIN [ 1,MSM]:Shahid}
QREAD MSMPRC2.PNT[TMP,MSM]
PROCEDURE PARK_BARM
;
Need undeclared identifier for procedure declaration
<ESCAPE> I termination
QREAD MSMPR2.PNT[TMP,MSM]
SAVECOREIMAGE MSM2
{ continued writing again at 11:18 30 Jan 1981}
MOVE BARM TO BARM-3*ZHAT
NODISPLAY
ADVANCE(2)
RETREAT(3)
DRIVE BJT(1) TO 170
MOVE BARM TO BPARK
MOVE BARM TO BPARK WITH DURATION=5
{PONTY0.DMP[F0\, [] :11:31 30 Jan 1981 ALIAS [PNT, HE] LOGIN [ 1,MSM]:Shahid}
NODISPLAY
MOVE BARM TO BPARK
ADVANCE(3)
XMOVE(4)
MOVE BARM TO BPARK
DRIVE BJT(1) TO 90
LOCATE_ZVERT(PIN)
{PONTY0.DMP[F0\, [] :11:50 30 Jan 1981 ALIAS [PNT, HE] LOGIN [ 1,MSM]:Shahid}
SHOW LOCATE_ZVERT
P←FR_NAME
P←FR_NAME
UNEXPECTED TOKEN FOUND ⊂FR_NAME⊃
LOCATE_ZVERT(P)
PP←P
PP←P
UNEXPECTED TOKEN FOUND ⊂P⊃
PP←FR_NAME
C0←BARM
C1←BARM
OPEN_HAND
;
;
Need at least 1 non-default parameters
OPEN_HAND(3.8)
RETREAT(3)
CASTING←C0
GET(CASTING,3.5,.5)
PUT(CASTING,C1)
RELEASE(CASTING)
CASTING←C0
GET(CASTING,1,.5)
RELEASE(CASTING)
SPEED_FACTOR←4
CASTING←C0
GET(CASTING,1,.5)
{PONTY0.DMP[F0\, [] :13:34 30 Jan 1981 ALIAS [ 1,MSM] LOGIN [ 1,MSM]:Shahid}
DRIVE BJT(1) TO 90
NODISPLAY; DRIVE BJT(1) TO 150
DRIVE BJT(1) TO 90
DRIVE BJT(1) TO 0
MOVE BARM TO BPARK
ADVANCE(4)
ADVANCE(4)
SPEED_FACTOR←4
RETREAT(8)
MOVE BARM TO BPARK
A1←BARM
A2←BARM
MOVE BARM VIA A1,A2,A1,BPARK,A1,A2 TO BPARK
MOVE BARM VIA A1,A2,A1,BPARK,A1,A2 TO BPARK
SPEED_FACTOR←4
MOVE BARM VIA A1,A2,A1,BPARK,A1,A2 TO BPARK
SPEED_FACTOR←2; MOVE BARM VIA A1,A2,A1,BPARK,A1,A2 TO BPARK
DRIVE BJT(1) TO 90
DRIVE BJT(1) TO 0
DRIVE BJT(1) TO 180
MOVE BARM VIA A1,A2,A1,BPARK,A1,A2 TO BPARK
{PONTY0.DMP[F0\, [] :22:08 30 Jan 1981 ALIAS [PNT, HE] LOGIN [ 1,MSM]:Shahid}
SETSTATUS(NOELF)
READ MSMPR2.PNT[TMP,MSM]
BAIL(BREAK("EXPANDPROC");!!GO);
{PONTY0.DMP[PNT, HE] :22:28 30 Jan 1981 ALIAS [PNT, HE] LOGIN [ 1,MSM]:Shahid}
DEFINE ARM=⊂BARM⊃;
QREAD MSMPR2.PNT[TMP,MSM]
BAIL
LOCATE_ZVERT(FOOZ);
PARAM;
PARAM;
⊂←⊃ or ⊂:⊃ is required here
LOCATE_ZVERT(FOOY)
LOCATE_ZVERT(FOOK)
{PONTY0.DMP[PNT, HE] :23:05 30 Jan 1981 ALIAS [PNT, HE] LOGIN [ 1,MSM]:Shahid}
DEFINE ARM=⊂BARM⊃;
QREAD MSMRP2.PNT[TMP,MSM]
MSMRP2.PNT[TMP,MSM] is nonexistent
QREAD MSMPR2.PNT[TMP,MSM
LOCATE_ZVERT(FOOY)
SHOW FOOY
SHOW LOCATE_ZVERT
{5.N .$↑ [$X , *] :23:35 30 Jan 1981 ALIAS [TMP,MSM] LOGIN [ 1,MSM]:Shahid}
SHOW GARM
SHOW RARM
SHOW GARM
SHOW BARM,YARM,GARM
SHOW BARM,YARM,GARM,RARM
SAVECOREIMAGE P5
{PONTY0.DMP[TMP,MSM] :15:10 2 Feb 1981 ALIAS [TMP,MSM] LOGIN [ 1,MSM]:Shahid}
NODISPLAY
SHOW GARM
G1←GARM
G2←GARM
SHOW G1,G2,GARM
SHOW G1,G2,GARM
PRINT(GARM)
{PONTY0.DMP[TMP,MSM] :13:07 3 Feb 1981 ALIAS [TMP,MSM] LOGIN [ 1,MSM]:Shahid}
CALIB(GARM)
NODISPLAY
VT05_OFF
G1←GARM
SHOW G1,GARM
PRINT(GARM)
DDT
PRINT(GARM)
PRINT(GARM)
PRINT(G1,CRLF,GARM)
PRINT(G1,CRLF,GARM,CRLF)
MOVE GARM TO GARM-3*XHAT-2*ZHAT
G2←GARM
SHOW G1,G2
{PONTY0.DMP[TMP,MSM] :13:18 3 Feb 1981 ALIAS [TMP,MSM] LOGIN [ 1,MSM]:Shahid}
NODISPLAY
VT05_OFF
DDT
CALIB(GARM)
CALIB(GARM)
G1←GARM
SHOW G1
MOVE GARM TO G1 + 3*XHAT
G2←GARM
SHOW G1,G2
MOVE GARM TO G1
MOVE GARM TO G1 +6*XHAT
MOVE GARM TO G1 +9*XHAT
MOVE GARM TO G1
MOVE GARM TO G1 -4*ZHAT
MOVE GARM TO G1
MOVE GARM TO G1 +ZHAT
MOVE GARM TO G1 - 9*ZHAT
MOVE GARM TO G1
MOVE GARM TO G1 + 12*XHAT
{PONTY0.DMP[TMP,MSM] :13:30 3 Feb 1981 ALIAS [TMP,MSM] LOGIN [ 1,MSM]:Shahid}
VT05_OFF
NODISPLAY
CALIB(GARM)
G1←GARM
SHOW G1
EDIT G1
MOVE GARM TO G1
MOVE GARM TO G1+6*ZHAT
MOVE GARM TO G1+6*ZHAT+3*XHAT
MOVE GARM TO G1+6*ZHAT+3*XHAT-3*YHAT
MOVE GARM TO G1+6*ZHAT+3*XHAT-3*YHAT +3*ZHAT
MOVE GARM TO G1+6*ZHAT+3*XHAT-3*YHAT +3*ZHAT+2*YHAT
MOVE GARM TO G1+6*ZHAT+3*XHAT-3*YHAT +3*ZHAT+4*YHAT
MOVE GARM TO G1+6*ZHAT+3*XHAT-3*YHAT +3*ZHAT+6*YHAT
MOVE GARM TO G1+6*ZHAT+3*XHAT-3*YHAT +3*ZHAT+8*YHAT
MOVE GARM TO G1+9*ZHAT+3*XHAT+5*YHAT
MOVE GARM TO G1+9*ZHAT+0*XHAT+5*YHAT
MOVE GARM TO G1+9*ZHAT+6*XHAT+5*YHAT
MOVE GARM TO G1+9*ZHAT+12*XHAT+5*YHAT
MOVE GARM TO G1+10*ZHAT+12*XHAT+5*YHAT
MOVE GARM TO G1+11*ZHAT+12*XHAT+5*YHAT
MOVE GARM TO G1+13*ZHAT+12*XHAT+5*YHAT
MOVE GARM TO G1+13*ZHAT+15*XHAT+5*YHAT
MOVE GARM TO G1+13*ZHAT+17*XHAT+5*YHAT
MOVE GARM TO G1+16*ZHAT+17*XHAT+5*YHAT
MOVE GARM TO G1+16*ZHAT+17*XHAT+8*YHAT
MOVE GARM TO G1+10*ZHAT+17*XHAT+8*YHAT
MOVE GARM TO G1+20*ZHAT+17*XHAT+8*YHAT
MOVE GARM TO G1+10*ZHAT+17*XHAT+8*YHAT
G2←GARM
SHOW G1,G2
MOVE GARM TO G1
MOVE GARM TO G2
MOVE GARM TO G2
MOVE GARM TO G2+5*XHAT
MOVE GARM TO G2
G3←G2
EDIT G3
READ FOO.PNT[1,MSM]
SPEED_FACTOR←10
MOVE GARM TO VIEW_POINT
MOVE GARM TO VIEW_POINT +10*XHAT
MOVE GARM TO G2
MOVE GARM TO G2 VIA VIEW_POINT
MOVE GARM TO G2 VIA VIEW_POINT,G2,VIEW_POINT
SCALAR I; FOR I←1 STEP 1 UNTIL 3 DO MOVE GARM TO G2 VIA VIEW_POINT,G2,VIEW_POINT
MOVE BARM TO BARM+10*XHAT
MOVE YARM TO YARM+10*XHAT
MOVE BARM TO BPARK
MOVE YARM TO YPARK
DEFINE TWOMOVE=⊂MOVE BARM TO BPARK VIA BPARK+10*XHAT;
MOVE YARM TO YPARK VIA YPARK+10*XHAT;
⊃;
COBEGIN TWOMOVE COEND
DEFINE THREEMOVE=⊂MOVE BARM TO BPARK VIA BPARK+10*XHAT;
MOVE YARM TO YPARK VIA YPARK+10*XHAT;
MOVE GARM TO G2 VIA VIEW_POINT;
⊃;
COBEGIN THREEMOVE COEND
COBEGIN TWOMOVE COEND
MOVE BARM TO BPARK
DRIVE BJT(1) TO 90
TWOMOVE
MOVE BARM TO BPARK
MOVE BARM TO BPARK
EDIT THREEMOVE
COBEGIN THREEMOVE COEND
EDIT
COBEGIN THREEMOVE COEND
COBEGIN THREEMOVE COEND
{PONTY0.DMP[TMP,MSM] :14:23 3 Feb 1981 ALIAS [TMP,MSM] LOGIN [ 1,MSM]:Shahid}
NODISPLAY
PRINT(GARM)
PRINT(GARM)
PRINT(GARM)
PRINT(GARM)
PRINT(GARM)
PRINT(GARM)
PRINT(GARM)
PRINT(BHAND,GARM)
PRINT(BHAND,GARM)
PRINT(BHAND,GARM)
PRINT(BHAND,GARM)
PRINT(BHAND,GARM)
PRINT(BHAND,GARM)
PRINT(BHAND,GARM)
MOVE BARM TO BPARK
G1←BARM
READ FOO.PNT[1,MSM]
DEFINE THREEMOVE=⊂MOVE BARM TO BPARK VIA BPARK+10*XHAT WITH DURATION=5;
MOVE YARM TO YPARK VIA YPARK+10*XHAT WITH DURATION=5;
MOVE GARM TO G1 VIA VIEW_POINT WITH DURATION=5;
⊃;
CALIB(GARM)
COBEGIN THREEMOVE COEND
MOVE GARM TO GARM+20*ZHAT
MOVE GARM TO FRAME(ROT(ZHAT,180),POS(GARM)+20*ZHAT)
MOVE GARM TO FRAME(ROT(ZHAT,180),POS(GARM)+20*ZHAT)+5*ZHAT+5*XHAT
MOVE GARM TO FRAME(ROT(ZHAT,180),POS(GARM)+20*ZHAT)+5*ZHAT+10*XHAT
G1←GARM
MOVE BARM TO BPARK
MOVE BARM TO BPARK VIA BPARK+10*XHAT WITH DURATION=5
BEGIN THREEMOVE END
COBEGIN THREEMOVE COEND
COBEGIN THREEMOVE COEND
COBEGIN THREEMOVE COEND
{PONTY0.DMP[TMP,MSM] :14:50 3 Feb 1981 ALIAS [TMP,MSM] LOGIN [ 1,MSM]:Shahid}
NODISPLAY
PRINT(BHAND,GARM)
PRINT(BHAND,GARM)
PRINT(BHAND,GARM)
PRINT(BHAND,GARM)
PRINT(BHAND,GARM)
PRINT(BHAND,GARM)
PRINT(BHAND,GARM)
PRINT(BHAND,GARM)
PRINT(BHAND,GARM)
PRINT(BHAND,GARM)
PRINT(BHAND,GARM)
PRINT(BHAND,GARM)
PRINT(BHAND,GARM)
PRINT(BHAND,GARM)
PRINT(BHAND,GARM)
PRINT(BHAND,GARM,CRLF)
PRINT(BHAND,GARM,CRLF)
PRINT(BHAND,GARM,CRLF)
PRINT(BHAND,GARM,CRLF)
PRINT(BHAND,GARM,CRLF)
PRINT(BHAND,GARM,CRLF)
PRINT(BHAND,GARM,CRLF)
PRINT(BHAND,GARM,CRLF)
PRINT(BHAND,GARM,CRLF)
PRINT(BHAND,GARM,CRLF)
PRINT(BHAND,GARM,CRLF)
VT05_OFF
{PONTY0.DMP[PNT, HE] :16:38 4 Feb 1981 ALIAS [PNT, HE] LOGIN [ 1,MSM]:Shahid}
NODISPLAY
CALIB(GARM)
MOVE GARM TO GPARK
MOVE GARM TO GPARK-10*ZHAT
DEFINE THREEMOVE=⊂MOVE BARM TO BPARK VIA BPARK+10*XHAT WITH DURATION=5;
MOVE YARM TO YPARK VIA YPARK+10*XHAT WITH DURATION=5;
MOVE GARM TO GPARK VIA GPARK-10*ZHAT WITH DURATION=5;
{PONTY0.DMP[PNT, HE] :16:45 4 Feb 1981 ALIAS [PNT, HE] LOGIN [ 1,MSM]:Shahid}
NODISPLAY
DDT
SAVECOREIMAGE P0
{PONTY0.DMP[PNT, HE] :16:50 4 Feb 1981 ALIAS [PNT, HE] LOGIN [ 1,MSM]:Shahid}
NODISPLAY
DEFINE THREEMOVE=⊂MOVE BARM TO BPARK VIA BPARK+10*XHAT WITH DURATION=5;
MOVE YARM TO YPARK VIA YPARK+10*XHAT WITH DURATION=5;
MOVE GARM TO GPARK VIA GPARK+10*XHAT WITH DURATION=5;⊃;
EDIT
EDIT
Need argument since no argument so far
EDIT THREEMOVE
EDIT
CALIB(GARM)
COBEGIN THREEMOVE COEND
VAL("DO CLOSEI")
VAL("DO CLOSEI")
VAL("DO DRIVE 1,30,100")
EDIT
COBEGIN THREEMOVE COEND
MOVE GARM TO GPARK VIA GPARK-10*ZHAT WITH DURATION=5;VAL
("DO DRIVE 1,-30,100");
VAL:: is a top level command only and cannot be used in compound statements
EDIT
COBEGIN THREEMOVE COEND
HELP
OPEN BHAND
OPEN BHAND
⊂TO⊃ or ⊂BY⊃ is required here
OPEN BHAND TO 3
CLOSE BHAND TO 1
{PONTY0.DMP[PNT, HE] :22:10 4 Feb 1981 ALIAS [PNT, HE] LOGIN [ 1, RV]:rick}
NODISPLAY
PRINT BARM
PRINT BARM
⊂(⊃ is required here
PRINT (BARM)
DISPLAY (BARM)
DISPLAY (
BARM)
No such data type: (
DISPLAY BARM
DISPLAY BARM
No such data type: BARM
HELP DISPLAY
HELP DISPLAY
Need ; or carriage return here
SHOW BARM
MOVEX BARM BY 3
MOVEY BARM BY 3
MOVEZ BARM BY -2
PARK BARM
MOVE BARM TO BPARK
BP1←BARM
BP2←BARM
YP1←YARM
YP2←YARM
BP3←BARM
YP3←YARM
BP4←BARM
YP4←YARM
BP5←BARM
YP5←YARM
MOVE BARM TO BPARK
MOVE YARM TO BYARK
MOVE YARM TO BYARK
UNEXPECTED TOKEN FOUND ⊂BYARK⊃
MOVE YARM TO YPARK
MOVE BARM TO BPARK VIA BP1,BP2,BP3,BP4,BP5,BP4,BP3,BP2,BP1
MOVE YARM TO YPARK VIA YP1,YP2,YP3,YP4,YP5,YP4,YP3,YP2,YP1
MOVE YARM TO YPARK
MOVE YARM TO YP2 SLOWLY
MOVE YARM TO YP2 SLOWLY
Need ; or carriage return here
MOVE YARM TO YP3
YP4←YARM
MOVE YARM TO YP5
<ESCAPE> I termination
HI
HI
⊂←⊃ or ⊂:⊃ is required here
HI
HI
⊂←⊃ or ⊂:⊃ is required here
HI THERE
{PONTY0.DMP[PNT, HE] :22:28 4 Feb 1981 ALIAS [PNT, HE] LOGIN [ 1, RV]:rick}
NODISPLAY
HEL+
HEL+
⊂←⊃ or ⊂:⊃ is required here
HELP
SHOW ALL
SHOW ALL
SHOW: Need a macro, procedure or variable name after SHOW
DISPLAY VAR
DISPLAY VAR
No such data type: VAR
DISPLAY FRAME
DISPLAY TRANS
BP1←BARM
BP1←BARM
BP2←BARM
YP2←YARM
BP3←BARM
YP3←YARM
MOVE YARM TO YPARK
MOVE BARM TO BPARK
MOVE BARM TO BPARK VIA BP1,BP2,BP3,BP2,BP1
MOVE YARM TO YPARK VIA YP1,YP2,YP3,YP2,YP1
MOVE YARM TO YPARK VIA YP1
,YP2,YP3,YP2,YP1
UNEXPECTED TOKEN FOUND ⊂YP1⊃
YP1←YARM
MOVE YARM TO YPARK VIA YP1,YP2,YP3,YP2,YP1
<ESCAPE> I termination
MOVE BARM TO ⊗+2*ZHAT
MOVE BARM TO ⊗+2*ZHAT
MOVE BARM TO ⊗+3*ZHAT
MOVE BARM TO ⊗+3*ZHAT
MOVE BARM TO ⊗+3*ZHAT SLOWLY
MOVE BARM TO ⊗+3*ZHAT SLOWLY
Need ; or carriage return here
MOVE BARM TO ⊗+3*ZHAT SLOWLY
MOVE BARM TO ⊗+3*ZHAT SLOWLY
Need ; or carriage return here
MOVE BARM TO ⊗+3*ZHAT WITH SPEED_FACTOR=3.0
MOVE BARM TO BP1
MOVE BARM TO BP2
{PONTY0.DMP[PNT, HE] :22:44 4 Feb 1981 ALIAS [PNT, HE] LOGIN [ 1, RV]:rick}
NODISPLAY
YP1←YARM
YP2←YARM
YP3←YARM
MOVE YARM TO YPARK DIRECTLY
MOVE YARM TO YPARK VIA YP1 VIA YP2 VIA YP3 WHERE SPEED_FACTOR=5.0 VIA YP2 VIA YP1
MOVE YARM TO YPARK VIA YP1 VIA YP2 VIA YP3 WHERE SPEED_FACTOR
=5.0 VIA YP2 VIA YP1
Unrecognized clause: SPEED_FACTOR
MOVE YARM TO YPARK VIA YP1 VIA YP2 VIA YP3 WHEN SPEED_FACTOR=5.0 VIA YP2 VIA YP1
{PONTY0.DMP[PNT, HE] :22:59 4 Feb 1981 ALIAS [PNT, HE] LOGIN [ 1, RV]:rick}
NODISPLAY
HELP
PRINT YARM
PRINT YARM
⊂(⊃ is required here
PRINT YARM
PRINT YARM
⊂(⊃ is required here
PRINT (YARM)
BP1←BARM
BP2←BARM
BP3←BARM
MOVE BARM TO BPARK WITH DURATION=5.0
DEFINE MOVEBLUE=⊂MOVE BARM TO BP1; MOVE BARM TO BP2;
MOVE BARM TO BP3 WITH DURATION=3.0;
MOVE BARM TO BP2 WITH DURATION=3.0;
MOVE BARM TO BP1; MOVE BARM TO BPARK; ⊃;
MOVEBLUE;
HELP
MOVE BARM TO BP1 VIA BP2 WHERE DURATION=3 VIA BP3 WHERE DURATION=4
MOVE BARM TO BPARK
DEFINE MOVEBLUE=⊂MOVE BARM TO BPARK VIA BP1 VIA BP2 WHERE DURATION=3 VIA BP3 WHERE DURATION=3 VIA BP2 WHERE DURATION=3 VIA BP1⊃;
DEFINE MOVEBLUE
=⊂MOVE BARM TO BPARK VIA BP1 VIA BP2 WHERE DURATION=3 VIA BP3 WHERE DURATION=3 VIA BP2 WHERE DURATION=3 VIA BP1⊃;
MACRO DEFINITION: need undeclared identifier
REDEFINE MOVEBLUE=⊂MOVE BARM TO BPARK VIA BP1 VIA BP2 WHERE DURATION=3 VIA BP3 WHERE DURATION=3 VIA BP2 WHERE DURATION=3 VIA BP1⊃;
MOVEBLUE
EDIT MOVEBLUE
MOVEBLUE
YP1←YARM
YP2←YARM
YP3←YARM
EDIT MOVEBLUE
MOVE YARM TO YPARK
MOVEYEL
EDIT MOVEYEL
MOVEYEL
COBEGIN MOVEYEL MOVEBLUE COEND
MOVE
BARM TO BPARK VIA BP1 VIA BP2 WHERE DURATION=2 VIA BP3 WHERE DURATION=2 VIA BP2 WHERE DURATION=2 VIA BP1
⊂;⊃ or ⊂COEND⊃ is required here
EDIT MOVEYEL
EDIT MOVEBLUE
COBEGIN MOVEYEL MOVEBLUE COEND
PRINT (BARM)
GP1←YARM+5*XHAT)
GP1←YARM+5*XHAT)
Need ; or carriage return here
GP1←(YARM+5*XHAT)*ROT(X,180)
GP1←(YARM+5*XHAT)*ROT(X
,180)
UNEXPECTED TOKEN FOUND ⊂X⊃
GP1←(YARM+5*XHAT)*ROT(XHAT,180)
GP1←(YARM+5*XHAT)*ROT(XHAT,180)
operator/function * cannot take operand(s) TRANS, ROT
GP1←(YARM+5*XHAT)
EDIT GP1
TRANS(ROT(ZHAT,-48.1*DEG)*ROT(YHAT,-67.2*
DEG)*ROT(ZHAT,-1.4*DEG),(59.76,27.48,28.99))
PRINT GP1
PRINT GP1
⊂(⊃ is required here
PRINT GP1
PRINT GP1
⊂(⊃ is required here
PRINT (GP1)
CALIB (GARM)
PRINT (GARM)
MOVE GARM TO GP1 SLOWLY;
MOVE GARM TO GP1 SLOWLY
;
Need ; or carriage return here
EDIT GP1
TRANS(ROT(ZHAT,0
TRANS(ROT(ZHAT,0
MISMATCHED PAREN
-
-
ERROR: Can't begin statement with -
EDIT GP1
MOVE GARM TO GP1
EDIT GP1
TRANS(ROT(ZHAT,-49.5*DEG),(ROT(YHAT,150*DEG),(59.76,27.48,28.99))
MISMATCHED PAREN
EDIT GP1
(59.76,27.48,28.99))
(59.76,27.48,28.99))
operator/function TRANS cannot take operand(s) ROT, ROT, VECTOR
EDIT GP1
E
E
UNEXPECTED TOKEN FOUND ⊂E⊃
EDIT GP1
MOVE GARM TO GP1
EDIT GP1
MOVE GARM TO GP1
<ESCAPE> I termination
PRINT (GARM)
CALIB (GARM)
MOVE GARM TO GPARK
PRINT (GARM)
PRINT (GPARK)
SHOW GPARK
SHOW GARM
DONE
DONE
⊂←⊃ or ⊂:⊃ is required here
DISPLAY
HI
HI
No such data type: HI
LOCS
LOCS
⊂←⊃ or ⊂:⊃ is required here
FRAME
E
GPARK
GPARK
⊂←⊃ or ⊂:⊃ is required here
SHOW GPARK
SHOW GARM
CALIB (GARM)
CALIB (GARM)
MOVE GARM TO GPARK
MOVE GARM TO ⊗+5*ZHAT
MOVE GARM TO ⊗+5*ZHAT
SHOW GARM
SHOW GARM
MOVE GARM TO GPARK
SHOW GARM
GP2←BARM+5*XHAT*INCHES
MOVE GARM TO GP2
<ESCAPE> I termination
CALIB (GARM)
MOVE GARM TO GPARK
<ESCAPE> I termination
CALIB (GARM)
<ESCAPE> I termination
CALIB (GARM)
MOVE GARM TO GPARK WITH DURATION=4
SHOW BARM
SHOW
BARM
DISPLAY
BARM
BARM
No such data type: BARM
FRAM
FRAM
⊂←⊃ or ⊂:⊃ is required here
FRAME
E
E
undeclared identifier required
GP0←GARM
MOVE GARM TO GP0+5*ZHAT
MOVE GARM TO GP0+5*ZHAT
MOVE GARM TO GARM+3*ZHAT
GP1←GP0+4*ZHAT*INCHES
MOVE GARM TO GP1
PRINT (GARM,GP0,GP1)
DISPLAY FRAME
GP1←GP0+5*ZHAT*INCHES
DISPLAY
FRAME
{PONTY0.DMP[PNT, HE] :0:17 5 Feb 1981 ALIAS [PNT, HE] LOGIN [ 1, RV]:rick}
NODIS
NODIS
⊂←⊃ or ⊂:⊃ is required here
NODIS
NODIS
⊂←⊃ or ⊂:⊃ is required here
NODISPLAY
CALIB (GARM)
MOVE GARM TO GPARK
CALIB (GARM)
GP0←GARM
GP1←GP0-20*ZHAT-20*XHAT
MOVE GARM TO GP1 WITH DURATION=4
EDIT GP1
MOVE GARM TO GP1 WITH DURATION=4
GP2←GP1-10*ZHAT-10*XHAT
MOVE GARM TO GP2 WITH DURATION=4
GP3←GP2-7*YHAT-4*ZHAT
MOVE GARM TO GP3 WITH DURATION=3
CALIB (GARM)
YP1←YARM
BP1←BARM
MOVE BARM TO BPARK WITH DURATION=4
SPEED_FACTOR←3
MOVE BARM TO BP1
MOVE BARM TO BPARK
MOVE YARM TO YPARK WITH DURATION=5
MOVE GARM TO GPARK WITH DURATION=5
DEFINE MOVEGRN=⊂MOVE GARM TO GPARK WHERE DURATION=3 VIA GP1 WHERE DURATION=3;⊃;
DEFINE MOVEBLUE=⊂MOVE BARM TO BPARK WHERE DURATION=3 VIA BP1 WHERE DURATION=3;⊃;
DEFINE MOVEYEL=⊂MOVE YARM TO YPARK WHERE DURATION=3 VIA YP1 WHERE DURATION=3;⊃;
MOVEGRN
MOVE GARM TO GPARK WHERE
DURATION=3 VIA GP1 WHERE DURATION=3;
Need ; or carriage return here
EDIT MOVEGRN
MOVEGRN
EDIT MOVEGRN
MOVEGRN
EDIT MOVEBLUE
EDIT MOVEYEL
MOVEBLUE
MOVEYEL
COBEGIN MOVEGRN MOVEYEL MOVEBLUE COEND
COBEGIN MOVEGRN MOVEYEL MOVEBLUE COEND
EDIT MOVEGRN
MOVEGRN
MOVE GARM TO GPARK VIA GP3 WHERE DURATION=3 WHERE OPEN
GHAND;
Unrecognized clause: OPEN
EDIT MOVEGRN
MOVEGRN
MOVE GARM TO GPARK VIA GP3 WHERE DURATION=3 WHEN
OPEN GHAND;
Need ; or carriage return here
EDIT MOVEGRN
MOVE GARM TO GP3 WITH DURATION=4
MOVE GARM TO GP3+4*ZHAT
MOVE GARM TO GP3+8*ZHAT
GP4←GARM
EDIT MOVEGRN
VIA GP4 WHERE DURATION=1 VIA GP3 WHERE DURATION=1;⊃;
MOVE GARM TO GPARK WITH DURATION=4
MOVEGRN
MOVEGRN
EDIT MOVEGRN
EDIT MOVEGRN
EDIT MOVEGRN
{PONTY0.DMP[PNT, HE] :1:54 5 Feb 1981 ALIAS [PNT, HE] LOGIN [ 1,MSM]:Shahid}
MOVE RARM TO RPARK
EXIT
{exiting at 1:55 5 Feb 1981
$FPMAX=0
$INTMAX=0
$PCDMAX=25}
{PONTY0.DMP[J7S, [] :2:30 5 Feb 1981 ALIAS [PNT, HE] LOGIN [ 1,MSM]:Shahid}
BEGIN VAL("QRE");END;
BEGIN MOVE BARM TO BPARK;
MOVE YARM TO YPARK;
MOVE GARM TO GPARK;
VAL("DO DRIVE 1,20,100");
END;
END;
{PONTY0.DMP[PNT, HE] :9:41 5 Feb 1981 ALIAS [ 1,JJC] LOGIN [ 1,JJC]:JOHN}
NODISPLAY
BV1←BARM
<ESCAPE> I termination
BV1←BARM
BV2←BARM
BV3←BARM
MOVE BARM TO BPARK
RESET
RESET
⊂←⊃ or ⊂:⊃ is required here
SHOW BARM
MOVE BARM TO BPARK
<ESCAPE> I termination
SHOW BPARK
DONE
DONE
⊂←⊃ or ⊂:⊃ is required here
:DONE
:
DONE
ERROR: Can't begin statement with :
DONE:
DONE:
can't handle undeclared labels yet
HELP
BPARK←BARM
BPARK←BARM
You cannot change the value of BPARK
BREST←BARM
BV1←BARM
BV2←BARM
MOVE BARM TO BREST
MOVE BARM TO BREST VIA BV1,BV2,BV1 SLOWLY
MOVE BARM TO BREST VIA BV1,BV2,BV1 SLOWLY
Need ; or carriage return here
MOVE BARM TO BREST VIA BV1,BV2,BV1 SLOWLY
MOVE BARM TO BREST VIA BV1,BV2,BV1 SLOWLY
Need ; or carriage return here
MOVE BARM TO BREST VIA BV1,BV2,BV1 SLOWLY;
MOVE BARM TO BREST VIA BV1,BV2,BV1 SLOWLY
;
Need ; or carriage return here
MOVE BARM TO BREST VIA BV1,BV2,BV1;SLOWLY
MOVE BARM TO BREST VIA BV1,BV2,BV1;SLOWLY
⊂←⊃ or ⊂:⊃ is required here
MOVE BARM TO BREST VIA BV1,BV2,BV1
MOVE BARM TO BREST VIA BV1,BV2,BV1 WITH DURATION = 10
MOVE BARM TO BREST VIA BV1,BV2,BV1
EXIT
{exiting at 10:00 5 Feb 1981
$FPMAX=6
$INTMAX=5
$PCDMAX=37}
{PONTY0.DMP[PNT, HE] :13:51 5 Feb 1981 ALIAS [PNT, HE] LOGIN [ 1,MSM]:Shahid}
NODISPLAY
CALIB(GARM)
READ FOURMV.PNT
VAL("EX MV",NOWAIT);
VAL("DO DRIVE 1,30,100",WAIT);
VAL("DO DRIVE 1,30,100",WAIT);
VAL("DO DRIVE 1,30,100",WAIT);
VAL("DO DRIVE 1,30,100",WAIT);
VAL("DO DRIVE 1,30,100");
VAL("DO DRIVE 1,-30,100");
VAL("E");
VAL("ED MVV",WAIT);
VAL("DRIVE 1,-30,100",WAIT);
VAL("DRIVE 1,30,100",WAIT);
VAL("E");
VAL("DO DRIVE 1,-30,100");
VAL("DO DRIVE 1,30,100");
VAL("EX MVV");
EDIT FOURMOVE
EDIT
{PONTY0.DMP[PNT, HE] :15:56 5 Feb 1981 ALIAS [PNT, HE] LOGIN [ 1, RV]:Rick}
HI
HI
⊂←⊃ or ⊂:⊃ is required here
DRIVE YJT 1 BY 10
DRIVE YJT 1
BY 10
⊂(⊃ is required here
HELP
DRIVE BJT(1) BY 10
MOVE BARM TO ⊗+3*ZHAT
MOVE BARM TO ⊗+3*ZHAT
MOVE BARM TO BPARK
MOVE BARM TO ⊗-12*ZHAT WITH DURATION=3 ON FORCE(ZHAT)≥2*OZ DO STOP;
MOVE BARM TO ⊗-12*ZHAT WITH DURATION=3 ON FORCE(ZHAT)≥2*OZ
DO STOP;
UNEXPECTED TOKEN FOUND ⊂OZ⊃
MOVE BARM TO ⊗-12*ZHAT WITH DURATION=3 ON FORCE(ZHAT)≥2*OUNCES DO STOP
MOVE BARM TO ⊗-12*ZHAT WITH DURATION=3 ON FORCE(ZHAT)≥2*OUNCES
DO STOP
UNEXPECTED TOKEN FOUND ⊂OUNCES⊃
MOVE BARM TO ⊗-12*ZHAT WITH DURATION=3 ON FORCE(ZHAT)≥2 DO STOP
DEFINE MOVEBLUE=⊂MOVE BARM TO ⊗-12*ZHAT WITH DURATION=3
ON FORCE≥2 DO STOP;
MOVE BARM TO ⊗+5*XHAT WITH FORCE=-1 ALONG ZHAT;⊃;
MOVE BARM TO BPARK
MOVEBLUE
ON FORCE≥2 DO
STOP;
FORCECM: requires ALONG or ABOUT here
EDIT MOVEBLUE
MOVEBLUE
MOVE
BARM TO ⊗+5*XHAT WITH FORCE=-1 ALONG ZHAT;
Need ; or carriage return here
EDIT MOVEBLUE
EDIT MOVEBLUE
MOVE BARM TO ⊗+5*XHAT WITH FORCE=-1 ALONG ZHAT;⊃;
MOVEBLUE
<ESCAPE> I termination
<ESCAPE> I termination
SAVE_VARIABLES
SAVE_VARIABLES
⊂←⊃ or ⊂:⊃ is required here
HELP
<ESCAPE> I termination
DUMP_VARIABLES RV
<ESCAPE> I termination
DISPLAY MACRO
EXIT
{exiting at 16:20 5 Feb 1981
$FPMAX=6
$INTMAX=5
$PCDMAX=59}
{5.N .$↑ [5@ , !@] :22:16 5 Feb 1981 ALIAS [PNT, HE] LOGIN [ 1,MSM]:Shahid}
HELP
HELP
EXIT
{exiting at 22:48 5 Feb 1981
$FPMAX=0
$INTMAX=0
$PCDMAX=25}
{5.N .$↑ [5@ , !@] :1:24 6 Feb 1981 ALIAS [PNT, HE] LOGIN [ 1,MSM]:Shahid}
NODISPLAY
HELP
HELP
HELP ERROR
HELP STATE
HELP QRE
EXIT
{exiting at 1:29 6 Feb 1981
$FPMAX=0
$INTMAX=0
$PCDMAX=25}
{5.N .$↑ [5@ , !@] :2:23 6 Feb 1981 ALIAS [PNT, HE] LOGIN [ 1,MSM]:Shahid}
READ FOURMV.PNT
DEFINE
FOURMOVE=⊂
Need ; or carriage return here
⊃
;
ERROR: Can't begin statement with ⊃
DEFINE FOURMOVE=⊂
MOVE BARM TO BPARK VIA BPARK+10*XHAT WITH DURATION=5;
MOVE BARM TO BPARK VIA BPARK+10*XHAT WITH DURATION=5;
MOVE BARM TO BPARK VIA BPARK+10*XHAT WITH DURATION=5;
MOVE BARM TO BPARK VIA BPARK+10*XHAT WITH DURATION=5;
MOVE BARM TO BPARK VIA BPARK+10*XHAT WITH DURATION=5;
MOVE BARM TO BPARK VIA BPARK+10*XHAT WITH DURATION=5;
⊃;
COBEGIN FOURMOVE COEND
COBEGIN FOURMOVE COEND
COBEGIN FOURMOVE FOURMOVE
COEND
COBEGIN FOURMOVE COBEGIN FOURMOVE FOURMOVE COEND COEND
{PONTY0.DMP[PNT, HE] :13:29 6 Feb 1981 ALIAS [PNT, HE] LOGIN [ 1,MSM]:Shahid}
NODISPLAY
HELP
HELP STATE
HLEP
HLEP
⊂←⊃ or ⊂:⊃ is required here
HELP
HELP MOT
EXIT
{exiting at 13:36 6 Feb 1981
$FPMAX=0
$INTMAX=0
$PCDMAX=25}
{PONTY0.DMP[PNT, HE] :14:41 7 Feb 1981 ALIAS [ 1,JJC] LOGIN [ 1,JJC]:JOHN}
NODISPLAY
BV1←BARM
MOVE BARM TO BPARK VIA BV1
OPERATE VISE
OPERATE VISE
VISE not operable yet
DONEATE VISE
DONEATE VISE
⊂←⊃ or ⊂:⊃ is required here
EXIT
{exiting at 14:44 7 Feb 1981
$FPMAX=6
$INTMAX=5
$PCDMAX=25}
{PONTY0.DMP[PNT, HE] :14:46 7 Feb 1981 ALIAS [ 1,JJC] LOGIN [ 1,JJC]:JOHN}
OPERATE SCREW_DRIVER
OPERATE SCREW_DRIVER
⊂DRIVER⊃ or ⊂VISE⊃ is required here
OPERATE DRIVER
?
EXIT
{exiting at 14:48 7 Feb 1981
$FPMAX=6
$INTMAX=5
$PCDMAX=25}
{PONTY0.DMP[PNT, HE] :22:14 7 Feb 1981 ALIAS [TMP,MSM] LOGIN [ 1,MSM]:Shahid}
NODISPLAY
A←1
B←2
C←3
D←4
E←5
F←6
G←7
H←8
I←9
J←10
K←11
L←12
M←13
{PONTY0.DMP[TMP,MSM] :22:25 7 Feb 1981 ALIAS [TMP,MSM] LOGIN [ 1,MSM]:Shahid}
NODISPLAY
A1←1
A2←2
A3←3
A4←4
A5←5
A6←6
A7←7
A8←8
A9←9
A10←10
A11←11
A12←12
A13←13
A14←14
A15←15
EXIT
{exiting at 22:26 7 Feb 1981
$FPMAX=0
$INTMAX=0
$PCDMAX=25}
{PONTY0.DMP[PNT, HE] :14:13 9 Feb 1981 ALIAS [PNT, HE] LOGIN [ 1,MSM]:Shahid}
RESUME_MESSAGE("VERSION CAN DRIVE PUMAS. IF YOU ARE GOING TO MOVE PUMAS, CALIBRATE BY
USING THE CALIB(GARM) OR CALIB(RARM) INSTRUCTION FIRST.
");
SAVECOREIMAGE P0
{PONTY0.DMP[PNT, HE] :15:03 9 Feb 1981 ALIAS [PNT, HE] LOGIN [ 1,MSM]:Shahid}
RESUME_MESSAGE("PUMA ARM INCLUDED IN THIS VERSION. USE THE CALIB(GARM)
TO INITIALIZE THE ARM.
");
SAVECOREIMAGE P0
{ continued writing again at 15:05 9 Feb 1981}
NODISPLAY
CALIB(GARM)
MOVE GARM TO GARM -10*ZHAT
{PONTY0.DMP[PNT, HE] :15:08 9 Feb 1981 ALIAS [PNT, HE] LOGIN [ 1,MSM]:Shahid}
CALIB(GARM)
NODISPLAY
EXIT
{exiting at 15:09 9 Feb 1981
$FPMAX=6
$INTMAX=5
$PCDMAX=25}
{PONTY0.DMP[PNT, HE] :18:21 9 Feb 1981 ALIAS [ 1,MJF] LOGIN [ 1,MJF]:JOHN JOHNSON}
MOVE BARM TO BPARK
MOVE BARM TO BPARK*TRANS(NILROT,0,1,0)
MOVE BARM TO BPARK*TRANS(NILROT,0,1,0)
More arguments for function TRANS than allowed
MOVE BARM TO BPARK*1*YHAT
MOVE BARM TO BPARK*1*
YHAT
operator/function * cannot take operand(s) FRAME, SCALAR
MOVE BARM TO BPARK*1*YHAT
MOVE BARM TO BPARK*1*
YHAT
operator/function * cannot take operand(s) FRAME, SCALAR
MOVE BARM TO BPARK*TRANS(NILROT,YHAT)
MOVE BARM TO BPARK
MOVE BARM TO BPARK*TRANS(NILROT,XHAT)
MOVE BARM TO BPARK
MOVE BARM TO BPARK*TRANS(NILROT,-ZHAT)
MOVE BARM TO BPARK
FIDUCIAL ← BARM
OPEN BHAND TO 3
MOVE BARM TO BPARK
MOVE BARM TO FIDUCIAL
FCONSTRUCT BTEST
DISPLAY BARM
DISPLAY BARM
No such data type: BARM
CLOSE BHAND
CLOSE BHAND
⊂TO⊃ or ⊂BY⊃ is required here
CLOSE BHAND TO 0
POINTER ← FIDUCIAL
AFFIX POINTER TO BARM
ORIGIN ← $POINTER
BTEST ← BGRASP
BTEST ← $BGRASP
OPEN GHAND
OPEN GHAND
Need BHAND or YHAND after OPEN
MOVE GARM TO GPARK
<ESCAPE> I termination
CALIB GARM
CALIB GARM
⊂(⊃ is required here
CALIB (GARM)
<ESCAPE> I termination
HELP
DISPLAY
DONE
DONE
No such data type: DONE
DISPLAY
FRAME
REFR
REFR
⊂←⊃ or ⊂:⊃ is required here
?EFR
?EFR
Need ; or carriage return here
?
HELP
EXIT
{exiting at 18:59 9 Feb 1981
$FPMAX=6
$INTMAX=5
$PCDMAX=28}
{PONTY0.DMP[PNT, HE] :18:59 9 Feb 1981 ALIAS [ 1,MJF] LOGIN [ 1,MJF]:MJF}
CALIB(GARM)
GALIB(GARM)
GALIB(
GARM)
⊂←⊃ or ⊂:⊃ is required here
CALIB(GARM)
OPEN GHAND TO 2.0
OPEN GHAND
TO 2.0
Need BHAND or YHAND after OPEN
MOVE GARM TO GPARK
MOVE BARM TO BPARK SLOWLY
MOVE BARM TO BPARK SLOWLY
Need ; or carriage return here
BTEST ← BARM
BTEST ← BTEST*(Z,180)
BTEST ← BTEST*(Z
,180)
UNEXPECTED TOKEN FOUND ⊂Z⊃
BTEST ← BTEST*(ZHAT,180)
BTEST ← BTEST*(ZHAT,180)
operator/function * cannot take operand(s) FRAME, ROT
BTEST ← BTEST*ROT(ZHAT,180)
BTEST ← BTEST*ROT(ZHAT,180)
operator/function * cannot take operand(s) FRAME, ROT
BTEST ← BTEST*TRANS((ZHAT,180))
BTEST ← BTEST*TRANS((ZHAT,180))
operator/function TRANS cannot take operand(s) ROT
BTEST ← BTEST*TRANS((ZHAT,180),NILVECT)
MOVE BARM TO BTEST WITH DURATION 100
MOVE BARM TO BTEST WITH DURATION 100
Need =,>,≥,≤, or < here
MOVE BARM TO BTEST WITH DURATION = 100
<ESCAPE> I termination
MOVE BARM TO BPARK WITH DURATION=20
<ESCAPE> I termination
EXIT
{exiting at 19:14 9 Feb 1981
$FPMAX=6
$INTMAX=5
$PCDMAX=25}
{PONTY0.DMP[PNT, HE] :19:14 9 Feb 1981 ALIAS [ 1,MJF] LOGIN [ 1,MJF]:MJF}
MOVE BARM TO BPARK WITH DURATIN = 20
MOVE BARM TO BPARK WITH DURATIN
= 20
Can't handle DURATIN clause now
MOVE BARM TO BPARK WITH DURATION = 20
MOVE BARM TO BPARK WITH DURATION = 20
<ESCAPE> I termination
MOVE BARM TO BPARK WITH DURATION = 20
MOVE BARM TO BPARK*TRANS((YHAT,180),NILVECT) WITH DURATION = 10
MOVE BARM TO BPARK WITH DURATION = 15
<ESCAPE> I termination
EXIT
{exiting at 19:25 9 Feb 1981
$FPMAX=6
$INTMAX=5
$PCDMAX=33}
{PONTY0.DMP[PNT, HE] :19:26 9 Feb 1981 ALIAS [ 1,MJF] LOGIN [ 1,MJF]:MJF}
MOVE BARM TO BPARK
MOVE BARM BY ZHAT
MOVE BARM BY (YHAT,180)
MOVE BARM BY (YHAT,180)
Need VECTOR expression for Destination part of MOVE BY
MOVE BARM TO ((Y,179.8),(45,57,15)) SLOWLY
MOVE BARM TO ((Y
,179.8),(45,57,15)) SLOWLY
UNEXPECTED TOKEN FOUND ⊂Y⊃
MOVE BARM TO ((YHAT,179.8),(45,57,15)) SLOWLY
MOVE BARM TO ((YHAT,179.8),(45,57,15)) SLOWLY
Need ; or carriage return here
PARK BARM
MOVE BARM TO BPARK
MOVE BARM BY YHAT
MOVE BARM BY -2*ZHAT WITH DURATION = 5
MOVE BARM TO BARM*TRANS((ZHAT,30),NILVECT)
MOVE BARM BY 4*ZHAT WITH DURATION =3
MOVE BARM TO BARM *TRANS((YHAT,-20),NILVECT)
MOVE BARM TO BARM*TRANS((XHAT,-20),NILVECT)
MOVE BARM TO BPARK
MOVE BARM TO BPARK
MOVE BARM TO BARM*TRANS((XHAT,10),NILVECT)
MOVE BARM BY 5*ZHAT
SET SLOW
SET SLOW
⊂←⊃ or ⊂:⊃ is required here
?ET SLOW
?ET
SLOW
Need ; or carriage return here
?
HELP
REDIS
REDIS
⊂←⊃ or ⊂:⊃ is required here
MOVE BARM TO BARM*TRANS((XHAT,-45),2*ZHAT) WITH DURATION =6
MOVE BARM BY ZHAT
MOVE BARM TO BARM*TRANS(NILROT,ZHAT)
PARK
NOW←BARM
NOW2 ← $BARM
WRITE
EXIT
{exiting at 19:55 9 Feb 1981
$FPMAX=6
$INTMAX=5
$PCDMAX=36}
{PONTY0.DMP[PNT, HE] :2:12 10 Feb 1981 ALIAS [ 1,BIS] LOGIN [ 1,BIS]:Barry}
MOVE YARM TO YPARK;
MOVE BARM TO BPARK WITH DURATION= 4.0*SECONDS;
P1 ← BARM;
MOVE BARM TO ⊗+1.0*ZHAT*INCHES;
MOVE BARM TO ⊗+1.0*ZHAT*INCHES WITH DURATION = 1.0 SECONDS;
MOVE BARM TO ⊗+1.0*ZHAT*INCHES WITH DURATION = 1.0 SECONDS
;
Need ; or carriage return here
MOVE BARM TO ⊗+1.0*ZHAT*INCHES WITH DURATION = 1.0 SECONDS;
MOVE BARM TO ⊗+1.0*ZHAT*INCHES WITH DURATION = 1.0 SECONDS
;
Need ; or carriage return here
MOVE BARM TO ⊗+1.0*ZHAT*INCHES WITH DURATION = 1.0 SECONDS;
MOVE BARM TO ⊗+1.0*ZHAT*INCHES WITH DURATION = 1.0 SECONDS
;
Need ; or carriage return here
CALIB(GARM);
<ESCAPE> I termination
MOVE BARM TO P1 WITH DURATION=5.0*SECONDS;
{PONTY0.DMP[PNT, HE] :2:26 10 Feb 1981 ALIAS [ 1,BIS] LOGIN [ 1,BIS]:Barry}
<ESCAPE> I termination
MOVE YARM TO YPARK WITH DURATION=5.0*SECONDS;
P1←BARM;
<ESCAPE> I termination
P1←BARM;
{PONTY0.DMP[PNT, HE] :14:55 10 Feb 1981 ALIAS [ 1,MSM] LOGIN [ 1,MSM]:Shahid}
NODISPLAY
P1←BARM
CALIB(GARM)
{PONTY0.DMP[TMP,MSM] :17:54 11 Feb 1981 ALIAS [TMP,MSM] LOGIN [ 1,MSM]:Shahid}
DDT
XFOO1
XFOO1
EXIT
{exiting at 18:11 11 Feb 1981
$FPMAX=0
$INTMAX=5
$PCDMAX=25}
{PONTY0.DMP[PNT, HE] :19:18 11 Feb 1981 ALIAS [ 1,BIS] LOGIN [ 1,BIS]:Barry}
<ESCAPE> I termination
MOVE BARM TO BPARK WITH DURATION=4.0*SECONDS;
<ESCAPE> I termination
MOVE BARM TO BPARK WITH DURATION=4.0*SECONDS;
<ESCAPE> I termination
MOVE BARM TO BARM-1.0*INCHES WITH DURATION=4.0*SECONDS;
MOVE BARM TO BARM-1.0*INCHES WITH
DURATION=4.0*SECONDS;
operator/function - cannot take operand(s) FRAME, SCALAR
MOVE BARM TO BARM-1.0*ZHAT*INCHES WITH DURATION=4.0*SECONDS;
<ESCAPE> I termination
MOVE BARM TO BPARK;
<ESCAPE> I termination
CALIB(GARM);
MOVE GARM TO GARM+1.0*ZHAT*INCHES;
MOVE GARM TO GARM+1.0*ZHAT*INCHES;
P1←GARM;
MOVE GARM TO GPARK WITH DURATION=4.0*SECONDS;
{PONTY0.DMP[PNT, HE] :22:45 11 Feb 1981 ALIAS [ 1,BIS] LOGIN [ 1,BIS]:Barry}
<ESCAPE> I termination
MOVE BARM TO BPARK WITH DURATION=4.0*SECONDS;
MOVE BARM TO BPARK WITH DURATION=3.0*SECONDS;
<ESCAPE> I termination
MOVE BARM TO BPARK WITH DURATION=3.0*SECONDS;
MOVE BARM TO BPARK+1.0*ZHAT*INCHES WITH DURATION=3.0*SECONDS;
MOVE BARM TO BPARK+1.0*XHAT*INCHES WITH DURATION=3.0*SECONDS;
MOVE BARM TO BPARK-1.0*ZHAT*INCHES WITH DURATION=3.0*SECONDS;
P1←BARM;
MOVE BARM TO BPARK WITH DURATION=5.0*SECONDS;
MOVE BARM TO BPARK WITH DURATION=5.0*SECONDS;
MOVE BARM TO BPARK WITH DURATION=5.0*SECONDS;
CALIB(GARM);
MOVE GARM TO GPARK WITH DURATION=5.0*SECONDS;
MOVE GARM TO GPARK;
CALIB(GARM);
CALIB(GARM);
MOVE GARM TO GPARK WITH DURATION=5.0*SECONDS;
MOVE GARM TO GPARK;
{PONTY0.DMP[TMP,MSM] :3:33 12 Feb 1981 ALIAS [ 1,MSM] LOGIN [ 1,MSM]:Shahid}
SAVECOREIMAGE P0
{PONTY0.DMP[TMP,MSM] :3:57 12 Feb 1981 ALIAS [ 1,MSM] LOGIN [ 1,MSM]:Shahid}
SAVECOREIMAG P0
SAVECOREIMAG P0
⊂←⊃ or ⊂:⊃ is required here
SAVECOREIMAGE P0
{PONTY0.DMP[TMP,MSM] :12:06 12 Feb 1981 ALIAS [TMP,MSM] LOGIN [ 1,MSM]:Shahid}
XFOO1
XFOO1
XFOO1
XFOO1
XFOO1
DDT
CALIB(GARM)
{PONTY0.DMP[PNT, HE] :23:05 12 Feb 1981 ALIAS [ 1,MJF] LOGIN [ 1,MJF]:MJF}
<ESCAPE> I termination
EXIT
{exiting at 23:06 12 Feb 1981
$FPMAX=6
$INTMAX=5
$PCDMAX=25}
{PONTY0.DMP[PNT, HE] :23:11 12 Feb 1981 ALIAS [ 1,MJF] LOGIN [ 1,MJF]:MJF}
<ESCAPE> I termination
EXIT
{exiting at 23:14 12 Feb 1981
$FPMAX=6
$INTMAX=5
$PCDMAX=25}
{PONTY0.DMP[PNT, HE] :23:15 12 Feb 1981 ALIAS [ 1,MJF] LOGIN [ 1,MJF]:MJF}
<ESCAPE> I termination
EXIT
{exiting at 23:17 12 Feb 1981
$FPMAX=6
$INTMAX=5
$PCDMAX=25}
{PONTY0.DMP[PNT, HE] :23:18 12 Feb 1981 ALIAS [ 1,MJF] LOGIN [ 1,MJF]:MJF}
<ESCAPE> I termination
HELP
<ESCAPE> I termination
EXIT
{exiting at 23:22 12 Feb 1981
$FPMAX=6
$INTMAX=5
$PCDMAX=25}
{PONTY0.DMP[PNT, HE] :23:22 12 Feb 1981 ALIAS [ 1,MJF] LOGIN [ 1,MJF]:MJF}
<ESCAPE> I termination
MOVE BARM TO BPARK
<ESCAPE> I termination
EXIT
{exiting at 23:24 12 Feb 1981
$FPMAX=6
$INTMAX=5
$PCDMAX=25}
{PONTY0.DMP[PNT, HE] :16:18 13 Feb 1981 ALIAS [PNT, HE] LOGIN [ 1,JDV]:}
QREAD LOCS9.JDV
LOCS9.JDV is nonexistent
NODISPLAY
QREAD LOCS9[1,JDV]
LOCS9[1,JDV] is nonexistent
QREAD LOCS9.JDV[1,JDV]
O_COVER
O_COVER
ROTOR
{ continued writing again at 16:55 13 Feb 1981}
NODISPLAY
VT05_OFF
QREAD LOCS9.JDV
PROCEDURE P1; BEGIN O_COVER; END;
PROCEDURE P2; BEGIN ROTOR; END;
PROCEDURE P3; BEGIN FIELD; END;
{ continued writing again at 17:21 13 Feb 1981}
QREAD FOO.PNT
QREAD FOO.PNT
QREAD FOO.PNT[PNT,HE]
{ continued writing again at 17:32 13 Feb 1981}
QREAD FOO.PNT
SAVECOREIMAGE M0
{PONTY0.DMP[PNT, HE] :17:39 13 Feb 1981 ALIAS [PNT, HE] LOGIN [ 1,MSM]:Shahid}
SAVECOREIMAGE P2
{PONTY0.DMP[PNT, HE] :17:43 13 Feb 1981 ALIAS [PNT, HE] LOGIN [ 1,MSM]:Shahid}
SAVECOREIMAGE P2
{PONTY0.DMP[TMP,MSM] :18:22 13 Feb 1981 ALIAS [TMP,MSM] LOGIN [ 1,MSM]:Shahid}
RESUME_MESSAGE("THIS VERSION INCLUDES THE GREEN ARM.
TO GET THE GREEN ARM, TYPE CALIB(GARM) BEFORE MOVING IT.
");
SAVECOREIMAGE P2
{PONTY0.DMP[PNT, HE] :1:58 14 Feb 1981 ALIAS [ 1,BIS] LOGIN [ 1,BIS]:Barry}
<ESCAPE> I termination
DISPLAY;
DISPLAY;
No such data type: ;
HELP;
<ESCAPE> I termination
REDISPLAY
<ESCAPE> I termination
NODISPLAY
P1←BARM;
DRIVE BJT(3) BY 1.0;
FOR I ← 1 STEP 1 UNTIL 5 DO DRIVE BJT(3) BY 1.0;
FOR I
← 1 STEP 1 UNTIL 5 DO DRIVE BJT(3) BY 1.0;
Need identifier here
SCALAR I; FOR I ← 1 STEP 1 UNTIL 5 DO DRIVE BJT(3) BY 1.0;
<ESCAPE> I termination
DRIVE BJT(3) BY 1.0;
DRIVE BJT(1) BY 10.0;
DRIVE BJT(1) BY -10.0;
DRIVE BJT(1) BY 10.0;
DRIVE BJT(1) BY 10.0 WITH DURATION =2.0*SECONDS;
<ESCAPE> I termination
REDISPLAY;
<ESCAPE> I termination
DISPLAY SCALARS;
NODISPLAY;
REDISPLAY;
<ESCAPE> I termination
PRINT("HMM. THE REDISPLAY COMMAND INVARIABLY RESULTS IN A BEEP ON THE VT05
FOLLOWED BY THE MESSAGE `NO VALUE FOR VARIABLE, USING DEFAULT';
ALT-P SIMPLY GETS ONE THE SAME GODDAM MESSAGE.
ALT-G RECOVERS THE VT05 DISPLAY.
ESCAPE-I GETS POINTY'S ATTENTION AGAIN.
AM I DOING SOMETHING WRONG?");
<ESCAPE> I termination
MOVE BARM TO BARM - 1.0*ZHAT*INCHES;
<ESCAPE> I termination
NODISPLAY;
REDISPLAY;
<ESCAPE> I termination
DRIVE BJT(3) BY -3.0*INCHES;
<ESCAPE> I termination
DRIVE BJT(3) BY 1.0;
DRIVE BJT(4) BY 10.0;
<ESCAPE> I termination
PRINT("REMARKABLE: THE DISPLAY TABLE HAS APPEARED!!!");
<ESCAPE> I termination
MOVE BARM TO BPARK DIRECTLY;
<ESCAPE> I termination
P1←BARM;
<ESCAPE> I termination
HELP
<ESCAPE> I termination
EXIT
{exiting at 2:26 14 Feb 1981
$FPMAX=6
$INTMAX=5
$PCDMAX=146}
{PONTY0.DMP[PNT, HE] :2:33 14 Feb 1981 ALIAS [ 1,BIS] LOGIN [ 1,BIS]:Barry}
<ESCAPE> I termination
EXIT
{exiting at 2:36 14 Feb 1981
$FPMAX=6
$INTMAX=5
$PCDMAX=25}
{PONTY0.DMP[PNT, HE] :2:38 14 Feb 1981 ALIAS [ 1,BIS] LOGIN [ 1,BIS]:Barry}
<ESCAPE> I termination
EXIT
{exiting at 2:38 14 Feb 1981
$FPMAX=6
$INTMAX=5
$PCDMAX=25}
{PONTY0.DMP[TMP,MSM] :0:53 16 Feb 1981 ALIAS [ 1,BIS] LOGIN [ 1,BIS]:Barry}
<ESCAPE> I termination
REDISPLAY
DRIVE BJT(3) BY 1.0;
<ESCAPE> I termination
DRIVE BJT(3) BY 1.0;
DRIVE BJT(4) BY 10.0;
DRIVE BJT(4) BY -10.0;
DRIVE BJT(5) BY -10.0;
P1←BARM
DRIVE BJT(5) BY 10.0;
P2←BARM;
MOVE BARM TO P1 DIRECTLY;
MOVE BARM TO P2 DIRECTLY;
MOVE BARM TO P1 DIRECTLY SLOWLY;
MOVE BARM TO P1 DIRECTLY SLOWLY
;
Need ; or carriage return here
MOVE BARM TO P2 DIRECTLY WITH DURATION = 1.0*SECONDS;
MOVE BARM TO BPARK DIRECTLY WITH DURATION = 2.0*SECONDS;
UP←BARM;
MOVE BARM TO BPARK DIRECTLY WITH DURATION = 3.0*SECONDS;
MOVE BARM TO UP DIRECTLY WITH DURATION = 2.0*SECONDS;
DOWN←BARM;
MOVE BARM TO DOWN+3*ZHAT*INCHES;
MOVE BARM TO UP DIRECTLY WITH DURATION=2.0*SECONDS;
MOVE BARM TO BPARK DIRECTLY WITH DURATION=2.0*SECONDS;
HELP
MOVE BARM TO UP DIRECTLY WITH DURATION=3.0*SECONDS;
MOVE BARM TO DOWN+5*ZHAT*INCHES DIRECTLY WITH DURATION=3.0*SECONDS;
MOVE BARM TO DOWN DIRECTLY WITH DURATION=3.0*SECONDS;
CENTER;
<ESCAPE> I termination
MOVE BARM TO BARM+5.0*INCHES DIRECTLY WITH DURATION=2.0*SECONDS; OPEN BHAND TO 3.0*INCHES;
WITH
APPROACH = NILDEPROACH WITH DEPARTURE = NILDEPROACH
operator/function + cannot take operand(s) FRAME, SCALAR
MOVE BARM TO BARM+5.0*INCHES DIRECTLY WITH DURATION
=2.0*SECONDS; OPEN BHAND TO 3.0*INCHES;
⊂←⊃ or ⊂:⊃ is required here
MOVE BARM TO BARM+5.0*INCHES DIRECTLY WITH DURATION=2.0*SECONDS;
WITH
APPROACH = NILDEPROACH WITH DEPARTURE = NILDEPROACH
operator/function + cannot take operand(s) FRAME, SCALAR
MOVE BARM TO BARM+5.0*INCHES DIRECTLY WITH DURATION
=2.0*SECONDS;
⊂←⊃ or ⊂:⊃ is required here
MOVE BARM TO BARM+5.0*ZHAT*INCHES DIRECTLY WITH DURATION=2.0*SECONDS;
OPEN BHAND TO 5.0*INCHES;
<ESCAPE> I termination
MOVE BARM TO DOWN DIRECTLY WITH DURATION=2.0*SECONDS;
CENTER BHAND;
CENTER BHAND
;
arm required here
CENTER BARM;
MOVE BARM TO BARM + 5.0*ZHAT*INCHES;
OPEN BHAND TO 2.0*INCHES;
MOVE BARM TO UP DIRECTLY WITH DURATION=1.0*SECONDS;
MOVE BARM TO BPARK DIRECTLY WITH DURATION=2.0*SECONDS;
EXIT
{exiting at 1:31 16 Feb 1981
$FPMAX=6
$INTMAX=5
$PCDMAX=39}
{PONTY0.DMP[TMP,MSM] :2:15 16 Feb 1981 ALIAS [ 1,BIS] LOGIN [ 1,BIS]:Barry}
MOVE BARM TO BPARK DIRECTLY WITH DURATION=3.0;
EXIT
{exiting at 2:16 16 Feb 1981
$FPMAX=6
$INTMAX=5
$PCDMAX=25}
{PONTY0.DMP[TMP,MSM] :14:45 17 Feb 1981 ALIAS [TMP,MSM] LOGIN [ 1,MSM]:Shahid}
CALIB(GARM)
XFOO2
XFOO2
XFOO2
EXIT
{exiting at 14:50 17 Feb 1981
$FPMAX=6
$INTMAX=5
$PCDMAX=25}
{PONTY0.DMP[PNT, HE] :17:17 17 Feb 1981 ALIAS [ 1,BIS] LOGIN [ 1,BIS]:Barry}
MOVE BARM TO BPARK WITH DURATION=1.0;
PICK←BARM;
CENTER BARM;
<ESCAPE> I termination
EXIT
{exiting at 17:20 17 Feb 1981
$FPMAX=6
$INTMAX=5
$PCDMAX=25}
{PONTY0.DMP[TMP,MSM] :17:27 17 Feb 1981 ALIAS [ 1,BIS] LOGIN [ 1,BIS]:Barry}
P1←BARM;
P2←BARM;
MOVE BARM TO P1 DIRECTLY WITH DURATION=1;
{PONTY0.DMP[PNT, HE] :17:39 17 Feb 1981 ALIAS [ 1,BIS] LOGIN [ 1,BIS]:Barry}
MOVE BARM TO BPARK DIRECTLY WITH DURATION=5;
<ESCAPE> I termination
MOVE BARM TO BPARK DIRECTLY WITH DURATION=5;
MOVE BARM TO BPARK DIRECTLY WITH DURATION=5;
{PONTY0.DMP[TMP,MSM] :18:06 17 Feb 1981 ALIAS [NEW,BIS] LOGIN [ 1,BIS]:Barry}
MOVE BARM TO BPARK DIRECTLY WITH DURATION=2;
DRIVE BJT(1) BY 10;
DRIVE BJT(1) BY 10;
{PONTY0.DMP[TMP,MSM] :18:11 17 Feb 1981 ALIAS [ 1,BIS] LOGIN [ 1,BIS]:Barry}
<ESCAPE> I termination
EXIT
{exiting at 18:12 17 Feb 1981
$FPMAX=6
$INTMAX=5
$PCDMAX=25}
{PONTY0.DMP[TMP,MSM] :18:13 17 Feb 1981 ALIAS [ 1,BIS] LOGIN [ 1,BIS]:Barry}
MOVE BARM TO BPARK DIRECTLY WITH DURATION=1;
EXIT
{exiting at 18:14 17 Feb 1981
$FPMAX=6
$INTMAX=5
$PCDMAX=25}
{PONTY0.DMP[TMP,MSM] :1:36 18 Feb 1981 ALIAS [ 1,BIS] LOGIN [ 1,BIS]:Barry}
MOVE BARM TO BPARK WITH DURATION=1;
GET←BARM;
GET←BARM;
MOVE BARM TO BPARK DIRECTLY WITH DURATION=5
;
MOVE BARM TO GET WITH DURATION=1;
MOVE BARM TO GET+3*ZHAT*INCHES WITH DURATION=1;
MOVE BARM TO GET+3*ZHAT*INCHES DIRECTLY WITH DURATION=1;
MOVE BARM TO BPARK DIRECTLY WITH DURATION=5;
HELP
DUMP_VARIABLES INTO FOO
DUMP_VARIABLES INTO FOO
Need ; or carriage return here
DUMP_VARIABLES INTO FOO;
DUMP_VARIABLES INTO FOO
;
Need ; or carriage return here
HELP
DUMP VARIABLES FOO;
DUMP VARIABLES
FOO;
⊂←⊃ or ⊂:⊃ is required here
DUMP_VARIABLES FOO;
HELP
WRITE ALL INTO FOO;
WRITE ALL INTO FOO;
HELP
DELETE ALL;
HELP
PROCEDURE FOO; MOVE BARM TO BPARK DIRECTLY;
HELP
EEDIT FOO;
EEDIT FOO;
EEDIT: only valid for macros
EDIT FOO;
EDIT FOO
;
Cant edit PROCEDURE yet
WRITE FOO INTO FOO;
FOO;
READ FOO;
PROCEDURE FOO
; MOVE BARM TO BPARK
Need undeclared identifier for procedure declaration
WITH APPROACH
= NILDEPROACH WITH DEPARTURE = NILDEPROACH
⊂←⊃ or ⊂:⊃ is required here
WITH DURATION
= 1
⊂←⊃ or ⊂:⊃ is required here
REDIS
REDIS
⊂←⊃ or ⊂:⊃ is required here
REDISPLAY
MENU
MENU
⊂←⊃ or ⊂:⊃ is required here
HELP
READ FOO;
PROCEDURE FOO
; MOVE BARM TO BPARK
Need undeclared identifier for procedure declaration
WITH APPROACH
= NILDEPROACH WITH DEPARTURE = NILDEPROACH
⊂←⊃ or ⊂:⊃ is required here
NODISPLAY;
READ FOO;
PROCEDURE FOO
; MOVE BARM TO BPARK
Need undeclared identifier for procedure declaration
WITH APPROACH
= NILDEPROACH WITH DEPARTURE = NILDEPROACH
⊂←⊃ or ⊂:⊃ is required here
READ FOO;
REDISPLAY;
BAR;
QREAD BAR;
BAR is nonexistent
READ BAR;
BAR is nonexistent
READ FOO;
PROCEDURE BAR
;
Need undeclared identifier for procedure declaration
MOVE
BARM TO GET + 3.0*ZHAT*INCHES DIRECTLY WITH DURATION = 3.0;
⊂;⊃ or ⊂END⊃ is required here
DEL BAR
DEL BAR
⊂←⊃ or ⊂:⊃ is required here
DEL BAR;
DEL BAR
;
⊂←⊃ or ⊂:⊃ is required here
DEL FOO;
DEL FOO
;
⊂←⊃ or ⊂:⊃ is required here
UNDEFINE FOO;
UNDEFINE FOO
;
⊂←⊃ or ⊂:⊃ is required here
READ FOO;
PROCEDURE BAR
;
Need undeclared identifier for procedure declaration
MOVE
BARM TO GET + 3.0*ZHAT*INCHES DIRECTLY WITH DURATION = 3.0;
⊂;⊃ or ⊂END⊃ is required here
NODISPLAY;
READ FOO;
PROCEDURE BAR
;
Need undeclared identifier for procedure declaration
MOVE
BARM TO GET + 3.0*ZHAT*INCHES DIRECTLY WITH DURATION = 3.0;
⊂;⊃ or ⊂END⊃ is required here
DISPLAY MACROS;
DISPLAY PROCEDURES;
DELETE FOO;
DELETE BAR;
READ FOO;
MOVE
BARM TO GET + 3.0*ZHAT*INCHES DIRECTLY WITH DURATION = 3.0;
⊂;⊃ or ⊂END⊃ is required here
DISPLAY PROCEDURES
READ FOO;
DISPLAY PROCEDURES
;
REDISPLAY;
DISPLAY MACROS;
DISPLAY PROCEDURES;
SHOW;
SHOW;
SHOW: Need a macro, procedure or variable name after SHOW
SHOW FOO;
SHOW FOO
;
SHOW: Need a macro, procedure or variable name after SHOW
SHOW BAR;
REDISPLAY;
BAR;
<ESCAPE> I termination
MOVE BARM TO BPARK WITH DURATION=1 DIRECTLY;
<ESCAPE> I termination
EXIT
{exiting at 2:31 18 Feb 1981
$FPMAX=6
$INTMAX=5
$PCDMAX=124}
{PONTY0.DMP[TMP,MSM] :2:31 18 Feb 1981 ALIAS [ 1,BIS] LOGIN [ 1,BIS]:Barry}
MOVE BARM TO BPARK DIRECTLY;
TEMP←BARM;
WRITE TEMP INTO BAR;
DELETE FOO;
DELETE FOO
;
DELETE: unknown token FOO
READ FOO;
FRAME TEMP
;
undeclared identifier required
DELETE ALL;
READ FOO;
MOVE BARM TO BPARK DIRECTLY WITH DURATION=3;
FOO;
MOVE BARM TO ⊗+3*ZHAT*INCHES DIRECTLY;
OPEN BHAND;
OPEN BHAND;
⊂TO⊃ or ⊂BY⊃ is required here
OPEN BHAND TO 3;
EXIT
{exiting at 2:37 18 Feb 1981
$FPMAX=6
$INTMAX=5
$PCDMAX=147}
{PONTY0.DMP[TMP,MSM] :1:52 19 Feb 1981 ALIAS [ AL,BIS] LOGIN [ 1,BIS]:Barry}
READ TEST08;
FOO;
PUT←BARM;
WRITE PUT INTO FOO;
DELETE
READ TEST09;
FOO
<ESCAPE> I termination
FOO
DELETE
READ TEST09;
FOO;
FOO;
MOVE BARM TO BPARK DIRECTLY WITH DURATION=5;
<ESCAPE> I termination
MOVE BARM TO BPARK DIRECTLY WITH DURATION=5;
FOO;
EXIT;
{exiting at 2:21 19 Feb 1981
$FPMAX=6
$INTMAX=5
$PCDMAX=339}
{PONTY0.DMP[TMP,MSM] :14:51 19 Feb 1981 ALIAS [ 1,BIS] LOGIN [ 1,BIS]:Barry}
READ TEST09[AL,BIS];
FOO;
EXIT
{exiting at 14:55 19 Feb 1981
$FPMAX=6
$INTMAX=5
$PCDMAX=339}
{PONTY0.DMP[TMP,MSM] :15:53 19 Feb 1981 ALIAS [TMP,MSM] LOGIN [ 1,MSM]:Shahid}
CALIB(GARM)
XFOO3
VT05_OFF
PRINT(CRLF);
PRINT(CRLF);
PRINT(CRLF);
PRINT(CRLF);
{PONTY0.DMP[TMP,MSM] :18:29 19 Feb 1981 ALIAS [TMP,MSM] LOGIN [ 1,MSM]:Shahid}
CALIB(GARM)
DDT
XFOO3
<ESCAPE> I termination
Q
Q
⊂←⊃ or ⊂:⊃ is required here
EXIT
{exiting at 20:24 19 Feb 1981
$FPMAX=0
$INTMAX=5
$PCDMAX=25}
{PONTY0.DMP[TMP,MSM] :16:10 23 Feb 1981 ALIAS [TMP,MSM] LOGIN [ 1,MSM]:Shahid}
SAVECOREIMAGE P0
{PONTY0.DMP[TMP,MSM] :17:19 23 Feb 1981 ALIAS [TMP,MSM] LOGIN [ 1,MSM]:Shahid}
CALIB(GARM)
XFOO1
XFOO1
XFOO2
DDT
XFOO3
{PONTY0.DMP[TMP,MSM] :2:07 24 Feb 1981 ALIAS [TMP,MSM] LOGIN [ 1,MSM]:Shahid}
SAVECOREIMAGE P0
{PONTY0.DMP[TMP,MSM] :2:52 24 Feb 1981 ALIAS [ AL,BIS] LOGIN [ 1,BIS]:Barry}
READ FOO;
FOO is nonexistent
READ TEST09;
FOO;
READ TEST10;
MOVE BARM TO ORIG
DIRECTLY WITH DURATION = 3;
UNEXPECTED TOKEN FOUND ⊂ORIG⊃
NODISPLAY;
READ TEST10;
MOVE BARM TO ORIG
DIRECTLY WITH DURATION = 3;
UNEXPECTED TOKEN FOUND ⊂ORIG⊃
REDISPLAY;
TRANSFER(PUT,GET);
TRANSFER(
PUT,GET);
⊂←⊃ or ⊂:⊃ is required here
DISPLAY PROCEDURES;
REDISPLAY;
READ TEST10;
WITH
APPROACH = NILDEPROACH WITH DEPARTURE = NILDEPROACH
operator/function - cannot take operand(s) TRANS, SCALAR
NODISPLAY;
READ TEST10;
WITH
APPROACH = NILDEPROACH WITH DEPARTURE = NILDEPROACH
operator/function - cannot take operand(s) TRANS, SCALAR
{NOTE: THE ERROR MESSAGE ABOVE IS HIGHLY MISLEADING }
TRANSFER(PUT,GET);
TRANSFER(
PUT,GET);
⊂←⊃ or ⊂:⊃ is required here
REDISPLAY;
TRANSFER(PUT;GET);
TRANSFER(
PUT;GET);
⊂←⊃ or ⊂:⊃ is required here
DISPLAY PROCEDURES;
TRANSFER(PUT,GET);
TRANSFER(
PUT,GET);
⊂←⊃ or ⊂:⊃ is required here
DISPLAY FOO;
DISPLAY FOO
;
No such data type: FOO
DISPLAY PROCEDURES;
WRITE ALL INTO FOO;
READ TEST10;
MOVE BARM TO ORIG
DIRECTLY WITH DURATION = 3;
UNEXPECTED TOKEN FOUND ⊂ORIG⊃
NODISPLAY;
READ TEST10;
MOVE BARM TO ORIG
DIRECTLY WITH DURATION = 3;
UNEXPECTED TOKEN FOUND ⊂ORIG⊃
READ TEST10;
MOVE BARM TO ORIG
DIRECTLY WITH DURATION = 3;
UNEXPECTED TOKEN FOUND ⊂ORIG⊃
READ TEST10;
MOVE BARM TO ORIG
DIRECTLY WITH DURATION = 3;
UNEXPECTED TOKEN FOUND ⊂ORIG⊃
DISPLAY PROCEDURES;
EXIT
{exiting at 3:20 24 Feb 1981
$FPMAX=6
$INTMAX=5
$PCDMAX=339}
{PONTY0.DMP[TMP,MSM] :3:20 24 Feb 1981 ALIAS [ AL,BIS] LOGIN [ 1,BIS]:Barry}
READ TEST09;
DISPLAY PROCEDURES;
READ TEST10;
MOVE BARM TO ORIG
DIRECTLY WITH DURATION = 3;
UNEXPECTED TOKEN FOUND ⊂ORIG⊃
EXIT;
{exiting at 3:21 24 Feb 1981
$FPMAX=6
$INTMAX=5
$PCDMAX=339}
{PONTY0.DMP[TMP,MSM] :3:31 24 Feb 1981 ALIAS [ AL,BIS] LOGIN [ 1,BIS]:Barry}
READ TEST09;
MOVE BARM TO TEMP WITH DURATION=3 DIRECTLY;
MOVE BARM TO BPARK DIRECTLY WITH DURATION=3;
CALIB(GARM);
MOVE GARM TO GPARK DIRECTLY WITH DURATION=1;
DRIVE GJT(1) BY 10;
DRIVE GJT
(1) BY 10;
⊂BJT⊃ or ⊂YJT⊃ is required here
MOVE GARM TO GARM-3*ZHAT*INCHES DIRECTLY WITH DURATION=3;
DOWN←GARM;
MOVE GARM TO GPARK DIRECTLY;
PROCEDURE BAR;
BEGIN
MOVE GARM TO DOWN DIRECTLY WITH DURATION = 2;
MOVE GARM TO GPARK DIRECTLY WITH DURATION = 2;
END;
BAR;
DELETE FOO;
BAR;
SCALAR I;
FOR I←1 STEP 1 UNTIL 10 DO BAR;
EXIT;
{exiting at 3:40 24 Feb 1981
$FPMAX=6
$INTMAX=5
$PCDMAX=339}
{PONTY0.DMP[TMP,MSM] :3:55 24 Feb 1981 ALIAS [TMP,MSM] LOGIN [ 1,MSM]:Shahid}
SAVECOREIMAGE P0
{ continued writing again at 3:56 24 Feb 1981}
EXIT
{exiting at 3:56 24 Feb 1981
$FPMAX=0
$INTMAX=5
$PCDMAX=25}
{PONTY0.DMP[TMP,MSM] :14:44 24 Feb 1981 ALIAS [TMP,MSM] LOGIN [ 1,MSM]:Shahid}
DDT
CALIB(GARM)
VT05_OFF; XFOO3
XF002
XF002
⊂←⊃ or ⊂:⊃ is required here
XFOO2
XFOO3
{PONTY0.DMP[TMP,MSM] :15:01 24 Feb 1981 ALIAS [TMP,MSM] LOGIN [ 1,MSM]:Shahid}
CALIB(DDT)
CALIB(DDT
)
⊂RARM⊃ or ⊂GARM⊃ is required here
CALIB(GARM)
SAVECOREIMAGE P0
{PONTY0.DMP[TMP,MSM] :15:06 24 Feb 1981 ALIAS [TMP,MSM] LOGIN [ 1,MSM]:Shahid}
CALIB(GARM)
DDT
XFOO3
XFOO2
XFOO3
DDT
XFOO3
MOVE GARM TO GPARK
MOVE GARM TO GPARK-4*ZHAT
MOVE GARM TO GPARK-8*ZHAT
XFOO3
DDT
XFOO3
XFOO3
DDT
XFOO3
OPERATE DRIVER WITH DURATION=3
OPERATE DRIVER WITH DURATION=3 WITH TORQUE=20
{PONTY0.DMP[TMP,MSM] :17:35 24 Feb 1981 ALIAS [TMP,MSM] LOGIN [ 1,MSM]:Shahid}
CALIB(GARM)
DDT; XFOO3
XFOO3
VT05_OFF; XFOO3
XFOO3
DDT
XFOO3
{PONTY0.DMP[TMP,MSM] :17:45 24 Feb 1981 ALIAS [TMP,MSM] LOGIN [ 1,MSM]:Shahid}
CALIB(GARM)
XFOO3
MOVE GARM TO GPARK
XFOO3
{PONTY0.DMP[TMP,MSM] :0:37 25 Feb 1981 ALIAS [TMP,MSM] LOGIN [ 1,MSM]:Shahid}
SAVECOREIMAGE P0
{ continued writing again at 0:51 25 Feb 1981}
SHOW SCALARS
SHOW SCALARS
SHOW: Need a macro, procedure or variable name after SHOW
DISPLAY SCALARS
EXIT
{exiting at 1:20 25 Feb 1981
$FPMAX=1
$INTMAX=5
$PCDMAX=25}
{PONTY0.DMP[TMP,MSM] :3:27 26 Feb 1981 ALIAS [TMP,MSM] LOGIN [ 1,MSM]:Shahid}
SAVECOREIMAGE P0
{ continued writing again at 3:28 26 Feb 1981}
EXIT
{exiting at 3:28 26 Feb 1981
$FPMAX=0
$INTMAX=5
$PCDMAX=25}
{PONTY0.DMP[TMP,MSM] :13:18 26 Feb 1981 ALIAS [TMP,MSM] LOGIN [ 1,MSM]:Shahid}
CALIB(GARM)
MOVE GARM TO GPARK
XFOO3
XFOO2
{PONTY0.DMP[TMP,MSM] :15:40 26 Feb 1981 ALIAS [TMP,MSM] LOGIN [ 1,MSM]:Shahid}
OPEN BHAND TO 3
OPEN BHAND TO 3.8
OPEN BHAND TO 3.8
CLOSE BHAND TO 0
{PONTY0.DMP[TMP,MSM] :16:04 27 Feb 1981 ALIAS [TMP,MSM] LOGIN [ 1,MSM]:Shahid}
CALIB(GARM)
XFOO3
XFOO3
DDT
XFOO3
DDT
XFOO3
DDT
XFOO3
XFOO3
EXIT
{exiting at 16:11 27 Feb 1981
$FPMAX=0
$INTMAX=5
$PCDMAX=25}
{PONTY0.DMP[TMP,MSM] :23:26 27 Feb 1981 ALIAS [ AL,BIS] LOGIN [ 1,BIS]:Barry}
EXIT;
{exiting at 23:27 27 Feb 1981
$FPMAX=6
$INTMAX=5
$PCDMAX=25}
{5.N .$↑ [$X , *] :2:18 3 Mar 1981 ALIAS [PNT, HE] LOGIN [ 1,MSM]:Shahid}
READ TEST10[AL,BIS]
EXIT
{exiting at 2:19 3 Mar 1981
$FPMAX=0
$INTMAX=0
$PCDMAX=225}
{BOINTY.DMP[PNT, HE] :3:06 3 Mar 1981 ALIAS [PNT, HE] LOGIN [ 1,MSM]:Shahid}
DISPLAY SCALARS
SHOW BHAND
SAVECOREIMAGE B0
{ continued writing again at 3:09 3 Mar 1981}
EXIT
{exiting at 3:09 3 Mar 1981
$FPMAX=6
$INTMAX=5
$PCDMAX=25}
{BOINTY.DMP[PNT, HE] :15:10 3 Mar 1981 ALIAS [PNT, HE] LOGIN [ 1,MSM]:Shahid}
SAVECOREIMAGE B0
{ continued writing again at 15:22 3 Mar 1981}
NODISPLAY
OPEN BHAND TO 3.8
CLOSE BHAND TO 1.0
QUIT
QUIT
QUIT:: is a debug command and is valid only in debug mode
EXIT
{exiting at 15:32 3 Mar 1981
$FPMAX=6
$INTMAX=5
$PCDMAX=25}
{BOINTY.DMP[PNT, HE] :15:51 3 Mar 1981 ALIAS [ 1,JKS] LOGIN [ 1,JKS]:Ken}
CPUMA
CPUMA
⊂←⊃ or ⊂:⊃ is required here
NODISPLAY
PFREE
CALIB(GARM)
PFREE
PFREE
EXIT
{exiting at 16:02 3 Mar 1981
$FPMAX=6
$INTMAX=5
$PCDMAX=25}
{PONTY0.DMP[TMP,MSM] :1:28 4 Mar 1981 ALIAS [TMP,MSM] LOGIN [ 1,MSM]:Shahid}
SAVECOREIMAGE FOO
{ continued writing again at 1:29 4 Mar 1981}
W←3
EXIT
{exiting at 1:29 4 Mar 1981
$FPMAX=0
$INTMAX=0
$PCDMAX=25}
{PONTY0.DMP[TMP,MSM] :1:29 4 Mar 1981 ALIAS [TMP,MSM] LOGIN [ 1,MSM]:Shahid}
DISPLAY SCALARS
NS←34
SAVECOREIMAGE POINTY
SAVECOREIMAGE POINTY
SAVECORE: dont use dumpfile POINTY
EXIT
{exiting at 1:31 4 Mar 1981
$FPMAX=0
$INTMAX=0
$PCDMAX=25}
{BOINTY.DMP[PNT, HE] :1:47 4 Mar 1981 ALIAS [TMP,MSM] LOGIN [ 1,MSM]:Shahid}
QREAD MSM0.PNT[THE,MSM]
QREAD MSM1.PNT[THE,MSM]
QREAD MSM2.PNT[THE,MSM]
QREAD MSM3.PNT[THE,MSM]
SAVECOREIMAGE MSMSIM
{ continued writing again at 1:47 4 Mar 1981}
QREAD FLSHDT.DAT[DEM,HE]
RESUME("INCLUDES DATA FOR FLASHLIGHT");
RESUME(
"INCLUDES DATA FOR FLASHLIGHT");
⊂←⊃ or ⊂:⊃ is required here
RESUME_MESSAGE("INCLUDES DATA FOR FLASHLIGHT");
SAVECOREIMAGE MSMSIM
{ continued writing again at 1:50 4 Mar 1981}
XIT
XIT
⊂←⊃ or ⊂:⊃ is required here
EXIT
{exiting at 1:50 4 Mar 1981
$FPMAX=0
$INTMAX=0
$PCDMAX=219}
{BOINTY.DMP[PNT, HE] :1:59 4 Mar 1981 ALIAS [TMP,MSM] LOGIN [ 1,MSM]:Shahid}
QREAD MSMPRC.PNT
SAVECOREIMAGE MSMSM2
{ continued writing again at 2:05 4 Mar 1981}
EXIT
{exiting at 2:06 4 Mar 1981
$FPMAX=0
$INTMAX=0
$PCDMAX=219}
{BOINTY.DMP[PNT, HE] :2:07 4 Mar 1981 ALIAS [TMP,MSM] LOGIN [ 1,MSM]:Shahid}
QREAD FLSHDT.DAT[DEM,HE]
SAVECOREIMAGE MSMSM2
{ continued writing again at 2:08 4 Mar 1981}
EXIT
{exiting at 2:08 4 Mar 1981
$FPMAX=0
$INTMAX=0
$PCDMAX=219}
{BOINTY.DMP[PNT, HE] :2:09 4 Mar 1981 ALIAS [TMP,MSM] LOGIN [ 1,MSM]:Shahid}
READ FLASH.MSM[THE,MSM]
EXIT
{exiting at 2:11 4 Mar 1981
$FPMAX=0
$INTMAX=0
$PCDMAX=842}
{5.N .$↑ [$X , *] :2:45 4 Mar 1981 ALIAS [TMP,MSM] LOGIN [ 1,MSM]:Shahid}
FOO FOO FOO
FOO
FOO
FOO
UNDECLARED IDENTIFIER FOO : requires ← or : here
OOO FIE FUM
OOO
FIE
FUM
UNDECLARED IDENTIFIER OOO : requires ← or : here
OOO(FIE FUM
OOO
(
FIE FUM
UNDECLARED IDENTIFIER OOO : requires ← or : here
QRE QRE QRM
QRE
QRE
QRM
UNDECLARED IDENTIFIER QRE : requires ← or : here
EXIT RE QRM
EXIT
RE
QRM
Need ; or carriage return here
EXIT
{exiting at 2:47 4 Mar 1981
$FPMAX=0
$INTMAX=0
$PCDMAX=25}
{5.N .$↑ [$X , *] :3:27 4 Mar 1981 ALIAS [TMP,MSM] LOGIN [ 1,MSM]:Shahid}
A B C
A B C
A B C
A B C
A B C
A B C
A B C
A B C
A B C
A B C
A B C
A B C
A B C
A B C
EXIT
{exiting at 3:27 4 Mar 1981
$FPMAX=0
$INTMAX=0
$PCDMAX=25}
{PONTY0.DMP[TMP,MSM] :3:35 4 Mar 1981 ALIAS [TMP,MSM] LOGIN [ 1,MSM]:Shahid}
A B C
A
B
C
UNDECLARED IDENTIFIER A : requires ← or : here
D E F
D
E
F
UNDECLARED IDENTIFIER D : requires ← or : here
G H I
G
H
I
UNDECLARED IDENTIFIER G : requires ← or : here
J K L
J
K
L
UNDECLARED IDENTIFIER J : requires ← or : here
M N O
M
N
O
UNDECLARED IDENTIFIER M : requires ← or : here
P Q R
P
Q
R
UNDECLARED IDENTIFIER P : requires ← or : here
S T U
{5.N .$↑ [$X , *] :15:13 4 Mar 1981 ALIAS [TMP,MSM] LOGIN [ 1,MSM]:Shahid}
QREAD MSM1.PNT[THE,MSM]
IF OPENING>
HAND_MAX
THEN PRINT("HAND OPENING TOO LARGE, WILL OPEN TO HAND_MAX");
UNEXPECTED TOKEN FOUND ⊂HAND_MAX⊃
PROCEDURE GRASP1(SCALAR WIDTH,TOL(
HAND_MAX
));
UNEXPECTED TOKEN FOUND ⊂HAND_MAX⊃
CLOSE
HAND
TO 0*INCHES APPROXIMATELY
Need BHAND or YHAND after CLOSE
PROCEDURE GRASP2(SCALAR WIDTH(0*INCHES),TOL(
HAND_MAX
));
UNEXPECTED TOKEN FOUND ⊂HAND_MAX⊃
CENTER_ARM
;
UNDECLARED IDENTIFIER CENTER_ARM : requires ← or : here
<ESCAPE> I termination
EXIT
{exiting at 15:15 4 Mar 1981
$FPMAX=0
$INTMAX=0
$PCDMAX=25}
{5.N .$↑ [$X , *] :15:32 4 Mar 1981 ALIAS [TMP,MSM] LOGIN [ 1,MSM]:Shahid}
QREAD MSM1.PNT[THE,MSM]
MSM1.PNT[THE,MSM] PAGE 1 LINE 4
IF OPENING>
HAND_MAX
THEN PRINT("HAND OPENING TOO LARGE, WILL OPEN TO HAND_MAX");
UNEXPECTED TOKEN FOUND ⊂HAND_MAX⊃
MSM1.PNT[THE,MSM] PAGE 1 LINE 9
PROCEDURE GRASP1(SCALAR WIDTH,TOL(
HAND_MAX
));
UNEXPECTED TOKEN FOUND ⊂HAND_MAX⊃
MSM1.PNT[THE,MSM] PAGE 1 LINE 11
CLOSE
HAND
TO 0*INCHES APPROXIMATELY
Need BHAND or YHAND after CLOSE
MSM1.PNT[THE,MSM] PAGE 1 LINE 17
PROCEDURE GRASP2(SCALAR WIDTH(0*INCHES),TOL(
HAND_MAX
));
UNEXPECTED TOKEN FOUND ⊂HAND_MAX⊃
MSM1.PNT[THE,MSM] PAGE 1 LINE 19
CENTER_ARM
;
UNDECLARED IDENTIFIER CENTER_ARM : requires ← or : here
MSM1.PNT[THE,MSM] PAGE 1 LINE 25
IF OPENING>
HAND_MAX
THEN PRINT("HAND OPENING TOO LARGE, WILL OPEN TO HAND_MAX");
UNEXPECTED TOKEN FOUND ⊂HAND_MAX⊃
MSM1.PNT[THE,MSM] PAGE 2 LINE 16
PROCEDURE REACHSS(FRAME F(
PARK_POSITION
); SCALAR TOL1(DTOL); SCALAR TOL2(RTOL));
UNEXPECTED TOKEN FOUND ⊂PARK_POSITION⊃
MSM1.PNT[THE,MSM] PAGE 2 LINE 17
IF
TOL1
>DTOL THEN MOVE ARM TO F APPROXIMATELY
UNEXPECTED TOKEN FOUND ⊂TOL1⊃
MSM1.PNT[THE,MSM] PAGE 2 LINE 18
ELSE
BEGIN
UNDECLARED IDENTIFIER ELSE : requires ← or : here
MSM1.PNT[THE,MSM] PAGE 2 LINE 19
MOVE
ARM
TO F
Need identifier here
MSM1.PNT[THE,MSM] PAGE 2 LINE 20
ON
NOT(TOLFUN(F,ARM,TOL1,TOL2)) DO STOP ARM
Can only handle labelled cmon now
MSM1.PNT[THE,MSM] PAGE 2 LINE 21
ON
ERROR=TIME_OUT DO PRINT("TIME OUT ERROR");
Can only handle labelled cmon now
<ESCAPE> I termination
EXIT
{exiting at 15:34 4 Mar 1981
$FPMAX=0
$INTMAX=0
$PCDMAX=80}
{PONTY0.DMP[TMP,MSM] :16:08 4 Mar 1981 ALIAS [TMP,MSM] LOGIN [ 1,MSM]:Shahid}
QREAD MSM1.PNT[THE,MSM]
MSM1.PNT[THE,MSM] PAGE 2 LINE 5
IF OPENING>
HAND_MAX
THEN PRINT("HAND OPENING TOO LARGE, WILL OPEN TO HAND_MAX");
UNEXPECTED TOKEN FOUND ⊂HAND_MAX⊃
MSM1.PNT[THE,MSM] PAGE 2 LINE 10
PROCEDURE GRASP1(SCALAR WIDTH,TOL(
HAND_MAX
));
UNEXPECTED TOKEN FOUND ⊂HAND_MAX⊃
MSM1.PNT[THE,MSM] PAGE 2 LINE 12
CLOSE
HAND
TO 0*INCHES APPROXIMATELY
Need BHAND or YHAND after CLOSE
MSM1.PNT[THE,MSM] PAGE 2 LINE 18
PROCEDURE GRASP2(SCALAR WIDTH(0*INCHES),TOL(
HAND_MAX
));
UNEXPECTED TOKEN FOUND ⊂HAND_MAX⊃
MSM1.PNT[THE,MSM] PAGE 2 LINE 20
CENTER_ARM
;
UNDECLARED IDENTIFIER CENTER_ARM : requires ← or : here
MSM1.PNT[THE,MSM] PAGE 2 LINE 26
IF OPENING>
HAND_MAX
THEN PRINT("HAND OPENING TOO LARGE, WILL OPEN TO HAND_MAX");
UNEXPECTED TOKEN FOUND ⊂HAND_MAX⊃
MSM1.PNT[THE,MSM] PAGE 3 LINE 17
PROCEDURE REACHSS(FRAME F(
PARK_POSITION
); SCALAR TOL1(DTOL); SCALAR TOL2(RTOL));
UNEXPECTED TOKEN FOUND ⊂PARK_POSITION⊃
MSM1.PNT[THE,MSM] PAGE 3 LINE 18
IF
TOL1
>DTOL THEN MOVE ARM TO F APPROXIMATELY
UNEXPECTED TOKEN FOUND ⊂TOL1⊃
MSM1.PNT[THE,MSM] PAGE 3 LINE 19
ELSE
BEGIN
UNDECLARED IDENTIFIER ELSE : requires ← or : here
MSM1.PNT[THE,MSM] PAGE 3 LINE 20
MOVE
ARM
TO F
Need identifier here
MSM1.PNT[THE,MSM] PAGE 3 LINE 21
ON
NOT(TOLFUN(F,ARM,TOL1,TOL2)) DO STOP ARM
Can only handle labelled cmon now
<ESCAPE> I termination
EXIT
{exiting at 16:10 4 Mar 1981
$FPMAX=0
$INTMAX=0
$PCDMAX=80}
{PONTY0.DMP[TMP,MSM] :2:25 6 Mar 1981 ALIAS [TMP,MSM] LOGIN [ 1,MSM]:Shahid}
REDISPLAY
W←3
SHOW SCALARS
SHOW
SCALARS
SHOW: Need a macro, procedure or variable name after SHOW
DISPLAY SCALARS
NODISPLAY
DISPLAY SCALARS
DISPLAY VECTORS
W←4
SHOW W
DISPLAY SCALARS
UPDATE
W←4
SHOW BHAND
W←35
{5.N .$↑ [$X , *] :2:32 6 Mar 1981 ALIAS [TMP,MSM] LOGIN [ 1,MSM]:Shahid}
W←3
SHOW SCALARS
SHOW
SCALARS
SHOW: Need a macro, procedure or variable name after SHOW
DISPLAY SCALARS
REDISPLAY
W←4
DISPLAY SCALARS
BAIL(BREAK("RENEW"));
{5.N .$↑ [$X , *] :2:38 6 Mar 1981 ALIAS [TMP,MSM] LOGIN [ 1,MSM]:Shahid}
W←4
DISPLAY SCALARS
REDISPLAY
W←34
NODISPLAY
DISPLAY SCALARS
DISPLAY SCALARS
SHOW W
BAIL
{PONTY0.DMP[TMP,MSM] :3:50 6 Mar 1981 ALIAS [TMP,MSM] LOGIN [ 1,MSM]:Shahid}
BAIL(BREAK("UDATALL"));
W←3;
REDISPLAY
$FPPTR=33:$FPSIZ=13 in UDATALL
W←3
{PONTY0.DMP[TMP,MSM] :3:54 6 Mar 1981 ALIAS [TMP,MSM] LOGIN [ 1,MSM]:Shahid}
BAIL(BREAK("UDATALL"));
REDISPLAY;
;
$FPPTR=30:$FPSIZ=12 in UDATALL
REDISPLAY
$FPPTR=30:$FPSIZ=12 in UDATALL
W←3
{5.N .$↑ [$X , *] :4:46 6 Mar 1981 ALIAS [TMP,MSM] LOGIN [ 1,MSM]:Shahid}
BREAK("UDATALL");
BREAK
("UDATALL");
BREAK:: is a debug command and is valid only in debug mode
BAIL(BREAK("UDATALL"););
REDISPLAY;
BAIL
W←3
DISPLAY SCALARS
BAIL
W←34
XX←37
XX←47;
SHOW XX
DISPLAY SCALARS
KQ←45
{PONTY0.DMP[TMP,MSM] :4:59 6 Mar 1981 ALIAS [TMP,MSM] LOGIN [ 1,MSM]:Shahid}
QREAD FLSHDT.DAT[DEM,HE]
SETSTATUS(PRTIME);
SETSTATUS(PRTIME);
SETSTATUS(FOO);
SETSTATUS(FOO
)
;
SETSTATUS: valid arguments are PPCODE,PWCODE,LINE,NOELF,NOFOLD,ALPRIN,PRTIME,DEBUG
SETSTATUS(PRTIME);
REDISPLAY;
W←4
N←1
W←0
W←0
W←0
W←0
W←0
NODISPLAY
W←0
W←0
W←0
W←0
REDISPLAY
K←34
DISPLAY SCALARS
W←34
DISPLAY VECTORS
DISPLAY SCALAR
REDISPLAY
W←2
X←3
{BOINTY.DMP[PNT, HE] :5:06 6 Mar 1981 ALIAS [TMP,MSM] LOGIN [ 1,MSM]:Shahid}
QREAD FLSHDT.DAT[PNT,HE]
FLSHDT.DAT[PNT,HE] is nonexistent
AREAD FLSHDT.DAT[DEM,HE]
AREAD FLSHDT
.DAT[DEM,HE]
⊂←⊃ or ⊂:⊃ is required here
QREAD FLSHDT.DAT[DEM,HE]
SETSTATUS(PRTIME);
{PONTY0.DMP[TMP,MSM] :12:51 6 Mar 1981 ALIAS [TMP,MSM] LOGIN [ 1,MSM]:Shahid}
REDISPLAY
CALIB(GARM)
PTABLE
XFREE
XFRE
UNDECLARED IDENTIFIER XFREE : requires ← or : here
PFREE
PFREE
PJOINT
PGRAV
PTOOL
W←4
PTABLE
DDT
PTABLE
DDT
{PONTY0.DMP[TMP,MSM] :15:56 6 Mar 1981 ALIAS [TMP,MSM] LOGIN [ 1,MSM]:Shahid}
CLOSE BHAND TO 0
OPEN GHAND
OPEN
GHAND
Need BHAND or YHAND after OPEN
CALIB(GARM)
PTABLE
CALIB(GARM)
MOVE GARM TO GARM-4*ZHAT
PTABLE
PTOOL
DDT
PTOOL
DDT
PTOOL
PTABLE
DDT
PTABLE
MOVE GARM TO GPARK
EXIT
{exiting at 16:06 6 Mar 1981
$FPMAX=0
$INTMAX=5
$PCDMAX=25}
{PONTY0.DMP[TMP,MSM] :17:31 6 Mar 1981 ALIAS [TMP,MSM] LOGIN [ 1,MSM]:Shahid}
CALIB(GARM)
VT05_OFF
PTABLE
PTOOL
DDT
PTOOL
DDT
PTOOL
PTABLE
DDT
PTABLE
PJOINT
PTABLE
PTOOL
PTOOL
PTOOL
PTOOL
PTOOL
PTOOL
PTOOL
PTOOL
{5.N .$↑ [$X , *] :17:57 6 Mar 1981 ALIAS [TMP,MSM] LOGIN [ 1,MSM]:Shahid}
CALIB(GARM)
PTOOL
PJOINT
MOVE GARM TO GPARK
PGRAV
MOVE BARM TO BPARK
{5.N .$↑ [$X , *] :18:13 6 Mar 1981 ALIAS [TMP,MSM] LOGIN [ 1,MSM]:Shahid}
CALIB(GARM)
REDISPLAY
W←4
SHOW W,BARM
W←45
COBEGIN MOVE BARM TO BPARK VIA BPARK+10*XHAT;
MOVE YARM TO YPARK VIA YPARK+10*XHAT;
MOVE GARM TO GPARK VIA GPARK-10*ZHAT;
COEND;
W←23
REDISPLAY
A←3
B←3
C←3
{PONTY0.DMP[PNT, HE] :1:24 7 Mar 1981 ALIAS [PNT, HE] LOGIN [ 1,MSM]:Shahid}
SAVECOREIMAGE P0
{PONTY0.DMP[PNT, HE] :1:30 7 Mar 1981 ALIAS [PNT, HE] LOGIN [ 1,MSM]:Shahid}
SAVECOREIMAGE P0
{PONTY0.DMP[PNT, HE] :1:32 7 Mar 1981 ALIAS [PNT, HE] LOGIN [ 1,MSM]:Shahid}
SHOW SCALARS
SHOW
SCALARS
SHOW: Need a macro, procedure or variable name after SHOW
DISPLAY SCALARS
W←4
W←5
SHOW W
SHOW SCALARS
{PONTY0.DMP[PNT, HE] :1:43 7 Mar 1981 ALIAS [PNT, HE] LOGIN [ 1,MSM]:Shahid}
SAVECOREIMAGE P1
{PONTY0.DMP[PNT, HE] :1:51 7 Mar 1981 ALIAS [PNT, HE] LOGIN [ 1,MSM]:Shahid}
W←5
DISPLAY SCALARS
W←34
Q←36
SHOW W
SHOW W,Q
Q←20
EXIT
{exiting at 2:00 7 Mar 1981
$FPMAX=54
$INTMAX=5
$PCDMAX=34}
{PONTY0.DMP[PNT, HE] :18:14 10 Mar 1981 ALIAS [ 1,MSM] LOGIN [ 1,MSM]:Shahid}
MOVE BARM TO BARM +6*XHAT
MOVE BARM TO BPARK WITH DURATION=4
MOVE BARM TO BPARK
MOVE YARM TO YPARK
MOVE YARM TO YPARK + 10*XHAT
NODISPLAY
CALIB(GARM)
MOVE GARM TO GPARK
MOVE BARM TO BPARK
MOVE BARM TO BPARK
Y1←YARM
MOVE YARM TO Y1 VIA YPARK
{PONTY0.DMP[PNT, HE] :12:27 11 Mar 1981 ALIAS [TMP,MSM] LOGIN [ 1,MSM]:Shahid}
PFREE
CALIB(GARM)
PFREE
PJOINT
PGRAV
PTABLE
PTOOL
DDT
EXIT
{exiting at 12:51 11 Mar 1981
$FPMAX=0
$INTMAX=5
$PCDMAX=25}
{PONTY0.DMP[TMP,MSM] :2:30 12 Mar 1981 ALIAS [TMP,MSM] LOGIN [ 1,MSM]:Shahid}
DISTANCE SCALAR DS1;
FORCE SCALAR FS1;
DS1←23;
FS1←45;
SCALAR S
S←DS1
DS1←S
DS1←FS1
DS1←FS
Dimensions of left hand and right hand sides are incompatible
DS1←FS1
DS1←FS
Dimensions of left hand and right hand sides are incompatible
DS1←FS1
DS1←FS
Dimensions of left hand and right hand sides are incompatible
DS1←FS1+23
DS1←FS1+2
Dimensions of left hand and right hand sides are incompatible
BAIL(BREAK("ERROR"));
DS1←FS1+34
DS1←FS1+3
Dimensions of left hand and right hand sides are incompatible
BAIL(BREAK("WARN"));
{PONTY0.DMP[TMP,MSM] :2:42 12 Mar 1981 ALIAS [TMP,MSM] LOGIN [ 1,MSM]:Shahid}
DISTANCE SCALAR DS1,DS2;
FORCE SCALAR DS3,DS4;
DS1←34*34
DS1←34*34+DS3
DS1←DS4
DS1←DS
Dimensions of left hand and right hand sides are incompatible
DS1←DS3
DS1←DS
Dimensions of left hand and right hand sides are incompatible
DS1←DS3+4
DS1←DS3+
Dimensions of left hand and right hand sides are incompatible
DS1←DS3+4
DS1←DS3+4
Dimensions of left hand and right hand sides are incompatible
DS1←4 +DS3
EXIT
{exiting at 2:44 12 Mar 1981
$FPMAX=0
$INTMAX=0
$PCDMAX=25}
{5.N .$↑ [$X , *] :2:50 12 Mar 1981 ALIAS [TMP,MSM] LOGIN [ 1,MSM]:Shahid}
DISTANCE SCALAR DS1,DS2;
FORCE SCALAR FS1,FS2
DS1←23
DS1←23+FS1
DS1←23+FS
Dimensions of left hand and right hand sides are incompatible
EXIT
{exiting at 2:51 12 Mar 1981
$FPMAX=0
$INTMAX=0
$PCDMAX=25}
{5.N .$↑ [$X , *] :2:56 12 Mar 1981 ALIAS [TMP,MSM] LOGIN [ 1,MSM]:Shahid}
DISTANCE SCALAR S1
FORCE SCALAR S2
S1←S2
S1←S2
Dimensions of left hand and right hand sides are incompatible
S1←S2+34
S1←S2
S1←S2
Dimensions of left hand and right hand sides are incompatible
S1←S2+45
S2←S1
{5.N .$↑ [$X , *] :3:08 12 Mar 1981 ALIAS [TMP,MSM] LOGIN [ 1,MSM]:Shahid}
DISTANCE SCALAR DS;
FORCE SCALAR FS;
DS←FS;
DS←FS
;
Dimensions of left hand and right hand sides are incompatible
DS←FS+3
DS←3+FS
DS←3+FS
Dimensions of left hand and right hand sides are incompatible
BAIL(BREAK("ASSIGNPROC"));
DS←FS+3
DS←FS
DS←FS
Dimensions of left hand and right hand sides are incompatible
DS←FS
DS←FS
Dimensions of left hand and right hand sides are incompatible
DS←FS+3
FS←3+DS
FS←3+DS
Dimensions of left hand and right hand sides are incompatible
FA←3+DS
FS←DS+3
FS←3+DS;
{PONTY0.DMP[PNT, HE] :12:01 12 Mar 1981 ALIAS [PUM, HE] LOGIN [ 1, RV]:Rick}
<ESCAPE> I termination
HELP
<ESCAPE> I termination
DONE
DON
UNDECLARED IDENTIFIER DONE : requires ← or : here
QUIT
QUIT
QUIT:: is a debug command and is valid only in debug mode
EXIT
{exiting at 12:03 12 Mar 1981
$FPMAX=54
$INTMAX=5
$PCDMAX=33}
{5.N .$↑ [$X , *] :12:09 12 Mar 1981 ALIAS [TMP,MSM] LOGIN [ 1,MSM]:Shahid}
DISTANCE SCALAR DS1; FORCE SCALAR FS1
DS1←FS1
DS1←FS1
Dimensions of left hand and right hand sides are incompatible
DS1←FS1+3
DS1←3+FS1
DS1←3+FS1
Dimensions of left hand and right hand sides are incompatible
REQUIRE ERROR_MODES "-F";
DS1←3+FS1
DS1←3+FS1
Dimensions of left hand and right hand sides are incompatible
DS1←FS1+3
{PONTY0.DMP[PNT, HE] :12:31 12 Mar 1981 ALIAS [PUM, HE] LOGIN [ 1, RV]:Rick}
HELP POW
CALIB(GARM)
CALIB(GARM)
PARK(GARM)
MOVE GARM TO GPARK
PJOINT
PTOOL
PTOOL
PJOINT
PTOOL
PTOOL
PTOOL
PTOOL
PTOOL
BODY_PICKUP←GARM
PJOINT
PTOOL
PJOINT
PTOOL
BODY_DROP1 ← GARM
PTOOL
PJOINT
PTOOL
BODY_DROP2 ← GARM
DEFINE GET_BODY = ⊂MOVE GARM TO BODY_PICKUP - 4*(ZHAT WRT BODY_PICKUP)*INCHES;
CLOSE GHAND;
MOVE GARM TO BODY_PICKUP - 0.5*(ZHAT WRT BODY_PICKUP)*INCHES
WITH DURATION=1.5*SEC;
MOVE GARM TO BODY_PICKUP;
OPEN GHAND;
PAUSE 2*SEC;
MOVE GARM TO BODY_PICKUP - 4*(ZHAT WRT BODY_PICKUP)*INCHES
WITH DURATION=2*SEC; ⊃;
CLOSE GHAND
CLOSE
GHAND
Need BHAND or YHAND after CLOSE
PJOINT
SPEED_FACTOR ← 5;
GET_NUT;
GET_NUT
;
UNDECLARED IDENTIFIER GET_NUT : requires ← or : here
GET_NUT;
GET_NUT
;
UNDECLARED IDENTIFIER GET_NUT : requires ← or : here
HELP DISPLAY
DISPLAY MACRO
<ESCAPE> I termination
WRITE ALL INTO PNTRV
<ESCAPE> I termination
HELP DEFINE
<ESCAPE> I termination
EXIT
{exiting at 13:12 12 Mar 1981
$FPMAX=72
$INTMAX=5
$PCDMAX=61}
{PONTY0.DMP[PNT, HE] :13:13 12 Mar 1981 ALIAS [PUM, HE] LOGIN [ 1, RV]:Rick}
READ PNTRV
PNTRV.[PUM,HE] PAGE 1 LINE 11
FRAME
RARM
;
undeclared identifier required
PNTRV.[PUM,HE] PAGE 1 LINE 12
RARM ←
FRAME
(ROT(ZHAT,-13.4*DEG)*ROT(YHAT,168.1*DEG)*ROT(ZHAT,3.9*DEG),VECTOR(116.984,5.172,29.263)*INCHES);
You cannot change the value of RARM
PNTRV.[PUM,HE] PAGE 1 LINE 14
FRAME
GARM
;
undeclared identifier required
PNTRV.[PUM,HE] PAGE 1 LINE 15
GARM ←
FRAME
(ROT(ZHAT,-193.4*DEG)*ROT(YHAT,168.1*DEG)*ROT(ZHAT,3.8*DEG),VECTOR(51.015,53.829,29.263)*INCHES);
You cannot change the value of GARM
PNTRV.[PUM,HE] PAGE 1 LINE 17
FRAME
RPARK
;
undeclared identifier required
PNTRV.[PUM,HE] PAGE 1 LINE 18
RPARK ←
FRAME
(ROT(ZHAT,-180.0*DEG),VECTOR(84.000,12.870,67.700)*INCHES);
You cannot change the value of RPARK
PNTRV.[PUM,HE] PAGE 1 LINE 20
FRAME
GPARK
;
undeclared identifier required
PNTRV.[PUM,HE] PAGE 1 LINE 21
GPARK ←
FRAME
(ROT(ZHAT,-180.0*DEG),VECTOR(84.000,46.130,67.700)*INCHES);
You cannot change the value of GPARK
CALIB(GARM)
SPEED_FACTOR ← 5
GET_BODY
CLOSE
GHAND
;
Need BHAND or YHAND after CLOSE
OPEN
GHAND
;
Need BHAND or YHAND after OPEN
STEM_LOC ← FRAME(ROT(X,180),VECTOR(62,55,5))
STEM_LOC ← FRAME(ROT(
X
,180),VECTOR(62,55,5))
UNEXPECTED TOKEN FOUND ⊂X⊃
STEM_LOC ← FRAME(ROT(X,180),VECTOR(62,55,5))
STEM_LOC ← FRAME(ROT(
X
,180),VECTOR(62,55,5))
UNEXPECTED TOKEN FOUND ⊂X⊃
STEM_LOC ← FRAME(ROT(XHAT,180),VECTOR(62,55,5))
MOVE GARM TO STEM_LOC + 10*ZHAT*INCHES;
PWORLD
PWORL
UNDECLARED IDENTIFIER PWORLD : requires ← or : here
PWORLD
PWORL
UNDECLARED IDENTIFIER PWORLD : requires ← or : here
PTABLE
STEM_LOC ← GARM;
PJOINT
PJOINT
PJOINT
STEM_LOC ← GARM
PTABLE
MOVE GARM TO STEM_LOC
PWORLD
PWORL
UNDECLARED IDENTIFIER PWORLD : requires ← or : here
PTABLE
DRIVER_LOC ← GARM
PTABLE
PJOINT
PTABLE
PTABLE
PTABLE
PUMA_STEM_HOLD ← GARM
PTABLE
STEM_BACKOFF ← GARM
WRITE ALL TO SPRDEF
WRITE ALL
TO
SPRDEF
Need INTO here before putting in file name, but you have got TO
WRITE ALL INTO SPRDEF
DEFINE PUT_STEM_IN_DRIVER = ⊂
MOVE GARM TO STEM_LOC + 4*ZHAT*INCHES DIRECTLY WITH DURATION=2*SEC;
MOVE GARM TO DRIVER_LOC + 3*ZHAT*INCHES;
MOVE GARM TO DRIVER_LOC DIRECTLY WITH DURATION=6*SEC;
MOVE GARM TO DRIVER_LOC * 6*ZHAT*INCHES;
MOVE GARM TO PUMA_STEM_HOLD DIRECTLY; ⊃;
PTABLE
MOVE GARM TO STEM_LOC
PTABLE
SPEED_FACTOR ← 5;
PUT_STEM_IN_DRIVER
MOVE GARM TO DRIVER_LOC * 6
*
ZHAT*INCHES;
operator/function * cannot take operand(s) FRAME, SCALAR
EDIT PUT_STEM_IN_DRIVER
WRITE ALL INTO SPRDEF
EXIT
{exiting at 13:49 12 Mar 1981
$FPMAX=96
$INTMAX=5
$PCDMAX=57}
{PONTY0.DMP[PNT, HE] :15:17 12 Mar 1981 ALIAS [PUM, HE] LOGIN [ 1, RV]:Rick}
READ SPRDEF
CALIB(GARM)
{PONTY0.DMP[PNT, HE] :16:15 12 Mar 1981 ALIAS [PUM, HE] LOGIN [ 1, RV]:Rick}
{PONTY0.DMP[PNT, HE] :21:15 12 Mar 1981 ALIAS [PUM, HE] LOGIN [ 1, RV]:Rick}
READ SPRDEF
CALIB(GARM)
GET_BODY
CLOSE
GHAND
;
Need BHAND or YHAND after CLOSE
OPEN
GHAND
;
Need BHAND or YHAND after OPEN
SPEED_FACTOR←10
MOVE GARM TO STEM_LOC + 7*ZHAT*INCH
MOVE GARM TO STEM_LOC
PFREE
MOVE GARM TO STEM_LOC + 5*ZHAT*INCH
MOVE GARM TO STEM_LOC WITH DURATION=5
PJOINT
PUT_STEM_IN_DRIVER
MOVE GARM TO STEM_BACKOFF DIRECTLY
PJOINT
PJOINT
GET_BODY
CLOSE
GHAND
;
Need BHAND or YHAND after CLOSE
OPEN
GHAND
;
Need BHAND or YHAND after OPEN
DEFINE DEPOSIT_BODY_AND_GRAB_STEM = ⊂
⊃;
READ SPRTMP
DEPOSIT_BODY_AND_GRAB_STEM
CLO
GHAND
; {CLOSE HAND TO PROVIDE A LITTLE COMPIANCE}
Need BHAND or YHAND after CLOSE
OPE
GHAND
; {OPEN THE HAND SO WE CAN GRAB THE STEM}
Need BHAND or YHAND after OPEN
PFREE
EXIT
{exiting at 21:47 12 Mar 1981
$FPMAX=96
$INTMAX=5
$PCDMAX=57}
{PONTY0.DMP[PNT, HE] :22:00 12 Mar 1981 ALIAS [PUM, HE] LOGIN [ 1, RV]:Rick}
READ SPRDEF
CALIB(GARM)
MOVE GARM TO BODY_PICKUP + 5*ZHAT
SPEED_FACTOR ← 10
PTOOL
PTOOL
PJOINT
BODY_PICKUP ← GARM
EXIT
{exiting at 22:09 12 Mar 1981
$FPMAX=96
$INTMAX=5
$PCDMAX=57}
{ continued writing again at 22:09 12 Mar 1981}
PTOOL
EXIT
{exiting at 22:10 12 Mar 1981
$FPMAX=96
$INTMAX=5
$PCDMAX=57}
{PONTY0.DMP[PNT, HE] :22:52 12 Mar 1981 ALIAS [PUM, HE] LOGIN [ 1, RV]:Rick}
READ SPRDEF
MOVE GARM TO STEM_LOC
<ESCAPE> I termination
CALIB(GARM)
<ESCAPE> I termination
CALIB(GARM)
MOVE GARM TO STEM_LOC
MOVE GARM TO STEM_LOC WITH DURATION=3
PJOINT
PTABLE
STEM_LOC ← GARM
MOVE GARM TO STEM_LOC + 10*ZHAT
MOVE GARM TO STEM_LOC WITH DURATION=4 DIRECTLY
PRINT(GARM)
PRINT(GARM)
PRINT(GARM)
PRINT(GARM)
PRINT(GARM)
PRINT(GARM)
PRINT(GARM)
PRINT(GARM)
EXIT
{exiting at 23:04 12 Mar 1981
$FPMAX=96
$INTMAX=5
$PCDMAX=57}
{5.N .$↑ [$X , *] :1:01 13 Mar 1981 ALIAS [TMP,MSM] LOGIN [ 1,MSM]:Shahid}
W←3
DISTANCE PROCEDURE FOO; RETURN(1);
DISTANCE
PROCEDURE
FOO; RETURN(1);
PROCEDURE cannot take a user declared dimension
DISTANCE SCALAR PROCEDURE FOO; RETURN(1);
DISTANCE SCALAR PROCEDURE FOO; RETURN(1
)
;
dimensions of returned value not same as that of declaration
declaration has dimensions: [DISTANCE]↑1
value returned has dimensions: DIMENSIONLESS
DISTANCE SCALAR PROCEDURE FOO; RETURN(1*INCH);
DISTANCE SCALAR PROCEDURE
FOO
; RETURN(1*INCH);
Need undeclared identifier for procedure declaration
DISTANCE SCALAR PROCEDURE FO2; RETURN(1*INCH);
DIMENSION ACCEL=VELOCITY/TIME;
DIMENSION ACCEL
=
VELOCITY/TIME;
=not declared.
DIMENSION ACCEL VELOCITY/TIME;
{5.N .$↑ [$X , *] :1:23 13 Mar 1981 ALIAS [TMP,MSM] LOGIN [ 1,MSM]:Shahid}
SCALAR PROCEDURE FOO(SCALAR X); RETURN(X*X);
W←FOO(3);
W←FOO(3)*INCHES;
W←FOO(3)*INCHES
;
Dimensions of left hand and right hand sides are incompatible
LHS has dimensions: DIMENSIONLESS
RHS has dimensions: [DISTANCE]↑1
DISTANCE PROCEDURE FOOD(SCALAR X); RETURN(X*INCHES);
DISTANCE
PROCEDURE
FOOD(SCALAR X); RETURN(X*INCHES);
PROCEDURE cannot take a user declared dimension
DISTANCE SCALAR PROCEDURE FOOD(SCALAR X); RETURN(X*INCHES);
W←FOOD(23);
W←FOOD(23)
;
Dimensions of left hand and right hand sides are incompatible
LHS has dimensions: DIMENSIONLESS
RHS has dimensions: [DISTANCE]↑1
EXIT
{exiting at 1:28 13 Mar 1981
$FPMAX=0
$INTMAX=0
$PCDMAX=27}
{5.N .$↑ [$X , *] :1:37 13 Mar 1981 ALIAS [TMP,MSM] LOGIN [ 1,MSM]:Shahid}
DISTANCE SCALAR PROCEDURE FOO; RETURN(1*INCH);
MOVE BARM TO BPARK
DISTANCE SCALAR ARRAY F1[1:4];
F1[1]←1
***** WARNING ::
F1[1]←1
Dimensions of left hand and right hand sides are incompatible
LHS has dimensions: [DISTANCE]↑1
RHS has dimensions: DIMENSIONLESS
F1[2]←FOO
END
***** ERROR ::
END
END:: is valid only inside a block
SCALAR PROCEDURE FOO2(DISTANCE SCALAR F1); RETURN(F1/INCH);
{PONTY0.DMP[TMP,MSM] :2:51 13 Mar 1981 ALIAS [TMP,MSM] LOGIN [ 1,MSM]:Shahid}
W←3
DISTANCE SCALAR PROCEDURE D(VELOCITY SCALAR V; TIME SCALAR T); RETURN(V*T);
DISTANCE SCALAR DS;
DS←D(3*INCH/SEC,2*SEC)
DS←D(3*INCH/SEC,2)
{%%%%% WARNING ::
# DS←D(3*INCH/SEC,2
% )
#
incompatible dimensions in substituting parameters
formal parameter T has dimensions: [TIME]↑1
current parameter has dimensions: DIMENSIONLESS
#######################}DS←D(3*INCH,2)
{%%%%% WARNING ::
# DS←D(3*INCH
% ,
# 2)
incompatible dimensions in substituting parameters
formal parameter V has dimensions: [DISTANCE]↑1 *[TIME]↑-1
current parameter has dimensions: [DISTANCE]↑1
#######################}{%%%%% WARNING ::
# DS←D(3*INCH,2
% )
#
incompatible dimensions in substituting parameters
formal parameter T has dimensions: [TIME]↑1
current parameter has dimensions: DIMENSIONLESS
#######################}EXIT
{exiting at 2:54 13 Mar 1981
$FPMAX=0
$INTMAX=0
$PCDMAX=27}
{PONTY0.DMP[TMP,MSM] :14:59 13 Mar 1981 ALIAS [TMP,MSM] LOGIN [ 1,MSM]:Shahid}
DISTANCE SCALAR PROCEDURE FOO(VELOCITY SCALAR V; TIME SCALAR T); RETURN(V*T);
X←FOO(1*DEG/SEC,3*SEC)
{%%%%% WARNING ::
# X←FOO(1*DEG/SEC
,
3*SEC)
incompatible dimensions in substituting parameters
formal parameter V has dimensions: [DISTANCE]↑1 *[TIME]↑-1
current parameter has dimensions: [TIME]↑-1 *[ANGLE]↑1
%%%%%%%%%%%%%%%%%%%%%%%}
X←FOO(1*INCH/SEC,3*SEC)
X←FOO(INCH/SEC,3*SEC)
X←FOO(3,3)
{%%%%% WARNING ::
# X←FOO(3
,
3)
incompatible dimensions in substituting parameters
formal parameter V has dimensions: [DISTANCE]↑1 *[TIME]↑-1
current parameter has dimensions: DIMENSIONLESS
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% WARNING ::
# X←FOO(3,3
)
incompatible dimensions in substituting parameters
formal parameter T has dimensions: [TIME]↑1
current parameter has dimensions: DIMENSIONLESS
%%%%%%%%%%%%%%%%%%%%%%%}
REQUIRE ERROR_MODES "F"; X←FOO(2,3);
REQUIRE ERROR_MODES"-F";
DISTANCE SCALAR PROCEDURE EL(DISTANCE SCALAR ARRAY F[1:3]); RETURN(F[2]);
DISTANCE SCALAR ARRAY F[1:4];
PRINT(EL(F));
X←(EL(F));
SCALAR ARRAY F0[1:6]
X←EL(F0);
{%%%%% WARNING ::
# X←EL(
F0
);
incompatible array dimensions
formally decalared array F has dimensions: [DISTANCE]↑1
current array F0 has dimensions: DIMENSIONLESS
%%%%%%%%%%%%%%%%%%%%%%%}
DISTANCE VECTOR ARRAY V[1:4];
{PONTY0.DMP[TMP,MSM] :16:08 13 Mar 1981 ALIAS [TMP,MSM] LOGIN [ 1,MSM]:Shahid}
Q←2*INCHES
VELOCITY SCALAR V;
V←Q
{%%%%% WARNING ::
V←Q
Dimensions of left hand and right hand sides are incompatible
LHS has dimensions: [DISTANCE]↑1 *[TIME]↑-1
RHS has dimensions: [DISTANCE]↑1
%%%%%%%%%%%%%%%%%%%%%%%}
FRAME F1;
F1←BARM
DISTANCE FRAME F2;
F2←BARM
{5.N .$↑ [$X , *] :20:21 14 Mar 1981 ALIAS [TMP,MSM] LOGIN [ 1,MSM]:Shahid}
DS←3*INCHES/SEC
WRITE ALL INTO FOO.PNT
F1←BARM
V3←XHAT*INCHES/SEC;
R1←ROT(YHAT,3*DEG)
WRITE INTO FOO.PNT
{PONTY0.DMP[PNT, HE] :22:41 14 Mar 1981 ALIAS [PNT, HE] LOGIN [ 1,MSM]:Shahid}
SAVECOREIMAGE P0
{ continued writing again at 22:41 14 Mar 1981}
REDISPLAY
DISPLAY FRAMES
HELP
EXIT
{exiting at 23:00 14 Mar 1981
$FPMAX=54
$INTMAX=5
$PCDMAX=33}
{PONTY0.DMP[PNT, HE] :16:07 15 Mar 1981 ALIAS [TMP,MSM] LOGIN [ 1,MSM]:Shahid}
SETSTATUS(NOELF)
DISPLAY SCALARS
READ MSMPR2.PNT
{%%%%% ERROR ::
MSMPR2.PNT[TMP,MSM] PAGE 2 LINE 3
MOVE
ARM
TO ARM + DEL*ZHAT WRT ARM;
Need identifier here
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% ERROR ::
MSMPR2.PNT[TMP,MSM] PAGE 2 LINE 6
MOVE
ARM
TO ARM - DEL*ZHAT WRT ARM;
Need identifier here
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% ERROR ::
MSMPR2.PNT[TMP,MSM] PAGE 2 LINE 9
MOVE
ARM
TO ARM + DEL * XHAT ;
Need identifier here
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% ERROR ::
MSMPR2.PNT[TMP,MSM] PAGE 2 LINE 12
MOVE
ARM
TO ARM + DEL * YHAT ;
Need identifier here
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% ERROR ::
MSMPR2.PNT[TMP,MSM] PAGE 2 LINE 15
MOVE
ARM
TO ARM + DEL * ZHAT ;
Need identifier here
%%%%%%%%%%%%%%%%%%%%%%%}
<ESCAPE> I termination
DEFINE ARM=⊂BARM⊃;
READ
{%%%%% ERROR ::
DECLAR.AL is nonexistent
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% ERROR ::
MSMPR2.PNT[TMP,MSM] PAGE 2 LINE 3
MOVE ARM TO ARM + DEL*ZHAT WRT ARM
;
Argument 2 must have same dimensions as that of argument 1
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% ERROR ::
MSMPR2.PNT[TMP,MSM] PAGE 2 LINE 6
MOVE ARM TO ARM - DEL*ZHAT WRT ARM
;
Argument 2 must have same dimensions as that of argument 1
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% ERROR ::
MSMPR2.PNT[TMP,MSM] PAGE 2 LINE 18
PROCEDURE TURN(ANGLE SCALAR SCALAR
DEL
(5*DEG));
Need ; or , or ) here
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% ERROR ::
MSMPR2.PNT[TMP,MSM] PAGE 2 LINE 19
MOVE ARM TO TRANS(ORIENT(ARM)*ROT(ZHAT,
DEL
),POS(ARM));
UNEXPECTED TOKEN FOUND ⊂DEL⊃
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% ERROR ::
MSMPR2.PNT[TMP,MSM] PAGE 2 LINE 27
PROCEDURE SCREW(DISTANCE SCALAR DELD; ANGLE
CALAR
DELA);
Need basic data type declaration here
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% ERROR ::
MSMPR2.PNT[TMP,MSM] PAGE 2 LINE 30
TEMP←ARM +
DELD
*ZHAT WRT ARM;
UNEXPECTED TOKEN FOUND ⊂DELD⊃
%%%%%%%%%%%%%%%%%%%%%%%}
EXIT
{exiting at 16:15 15 Mar 1981
$FPMAX=0
$INTMAX=5
$PCDMAX=212}
{PONTY1.DMP[PNT, HE] :16:36 15 Mar 1981 ALIAS [PNT, HE] LOGIN [ 1,MSM]:Shahid}
DEFINE ARM=BARM;
{%%%%% ERROR ::
DEFINE ARM=
BARM
;
⊂⊂⊃ is required here
%%%%%%%%%%%%%%%%%%%%%%%}
DEFINE ARM=⊂BARM⊃;
READ MSMPR2.PNT[TMP,MSM]
{%%%%% WARNING ::
MSMPR2.PNT[TMP,MSM] PAGE 2 LINE 3
MOVE ARM TO ARM + DEL*ZHAT WRT ARM
;
Argument 2 must have same dimensions as that of argument 1
Argument 2 has dimensions: [DISTANCE]↑1
argument 1 has dimensions: DIMENSIONLESS
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% WARNING ::
MSMPR2.PNT[TMP,MSM] PAGE 2 LINE 3
MOVE ARM TO ARM + DEL*ZHAT WRT ARM
;
Argument 2 must have same dimensions as that of argument 1
Argument 2 has dimensions: [DISTANCE]↑2
argument 1 has dimensions: [DISTANCE]↑1
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% WARNING ::
MSMPR2.PNT[TMP,MSM] PAGE 2 LINE 6
MOVE ARM TO ARM - DEL*ZHAT WRT ARM
;
Argument 2 must have same dimensions as that of argument 1
Argument 2 has dimensions: [DISTANCE]↑1
argument 1 has dimensions: DIMENSIONLESS
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% WARNING ::
MSMPR2.PNT[TMP,MSM] PAGE 2 LINE 6
MOVE ARM TO ARM - DEL*ZHAT WRT ARM
;
Argument 2 must have same dimensions as that of argument 1
Argument 2 has dimensions: [DISTANCE]↑2
argument 1 has dimensions: [DISTANCE]↑1
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% ERROR ::
MSMPR2.PNT[TMP,MSM] PAGE 2 LINE 18
PROCEDURE TURN(ANGLE SCALAR SCALAR
DEL
(5*DEG));
Need ; or , or ) here
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% ERROR ::
MSMPR2.PNT[TMP,MSM] PAGE 2 LINE 19
MOVE ARM TO TRANS(ORIENT(ARM)*ROT(ZHAT,
DEL
),POS(ARM));
UNEXPECTED TOKEN FOUND ⊂DEL⊃
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% ERROR ::
MSMPR2.PNT[TMP,MSM] PAGE 2 LINE 27
PROCEDURE SCREW(DISTANCE SCALAR DELD; ANGLE
CALAR
DELA);
Need basic data type declaration here
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% ERROR ::
MSMPR2.PNT[TMP,MSM] PAGE 2 LINE 30
TEMP←ARM +
DELD
*ZHAT WRT ARM;
UNEXPECTED TOKEN FOUND ⊂DELD⊃
%%%%%%%%%%%%%%%%%%%%%%%}
<ESCAPE> I termination
EXIT
{exiting at 16:38 15 Mar 1981
$FPMAX=0
$INTMAX=0
$PCDMAX=43}
{PONTY1.DMP[PNT, HE] :16:42 15 Mar 1981 ALIAS [PNT, HE] LOGIN [ 1,MSM]:Shahid}
PRINT(F1);
{%%%%% ERROR ::
PRINT(
F1
);
UNEXPECTED TOKEN FOUND ⊂F1⊃
%%%%%%%%%%%%%%%%%%%%%%%}
DISTANCE FRAME F1
F1←BARM
F1←2*ZHAT WRT BARM
{%%%%% WARNING ::
F1←2*ZHAT WRT BARM
Argument 2 must have same dimensions as that of argument 1
Argument 2 has dimensions: [DISTANCE]↑1
argument 1 has dimensions: DIMENSIONLESS
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% ERROR ::
F1←2*ZHAT WRT BARM
INCOMPATIBLE TYPE ASSIGNMENT
%%%%%%%%%%%%%%%%%%%%%%%}
F1←2*INCHES*ZHAT WRT BARM
{%%%%% WARNING ::
F1←2*INCHES*ZHAT WRT BARM
Argument 2 must have same dimensions as that of argument 1
Argument 2 has dimensions: [DISTANCE]↑1
argument 1 has dimensions: DIMENSIONLESS
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% ERROR ::
F1←2*INCHES*ZHAT WRT BARM
INCOMPATIBLE TYPE ASSIGNMENT
%%%%%%%%%%%%%%%%%%%%%%%}
F1←(2*INCHES*ZHAT) WRT BARM
{%%%%% ERROR ::
F1←(2*INCHES*ZHAT) WRT BARM
INCOMPATIBLE TYPE ASSIGNMENT
%%%%%%%%%%%%%%%%%%%%%%%}
TRANS T1; T1←(2*INCHES*ZHAT) WRT BARM
{5.N .$↑ [$X , *] :0:05 16 Mar 1981 ALIAS [TMP,MSM] LOGIN [ 1,MSM]:Shahid}
DEFINE ARM=⊂BARM⊃;
READ MSMPR2.PNT
{%%%%% ERROR ::
MSMPR2.PNT[TMP,MSM] PAGE 2 LINE 18
PROCEDURE TURN(ANGLE SCALAR SCALAR
DEL
(5*DEG));
Need ; or , or ) here
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% ERROR ::
MSMPR2.PNT[TMP,MSM] PAGE 2 LINE 19
MOVE ARM TO TRANS(ORIENT(ARM)*ROT(ZHAT,
DEL
),POS(ARM));
UNEXPECTED TOKEN FOUND ⊂DEL⊃
%%%%%%%%%%%%%%%%%%%%%%%}
<ESCAPE> I termination
EXIT
{exiting at 0:06 16 Mar 1981
$FPMAX=0
$INTMAX=0
$PCDMAX=43}
{PONTY0.DMP[TMP,MSM] :0:08 16 Mar 1981 ALIAS [TMP,MSM] LOGIN [ 1,MSM]:Shahid}
DEFINE ARM=⊂BARM⊃;
READ MSMPR2.PNT
DELETE ALL
QREAD MSMPRC.PNT
{%%%%% WARNING ::
MSMPRC.PNT[TMP,MSM] PAGE 3 LINE 27
IF |WIDTH - HAND
|
>TOL THEN PRINT("OBJECT NOT THE SIZE EXPECTED");
Argument 2 must have same dimensions as that of argument 1
Argument 2 has dimensions: [DISTANCE]↑1
argument 1 has dimensions: DIMENSIONLESS
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% WARNING ::
MSMPRC.PNT[TMP,MSM] PAGE 3 LINE 27
IF |WIDTH - HAND|>TOL
THEN
PRINT("OBJECT NOT THE SIZE EXPECTED");
Argument 2 must have same dimensions as that of argument 1
Argument 2 has dimensions: DIMENSIONLESS
argument 1 has dimensions: [DISTANCE]↑1
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% WARNING ::
MSMPRC.PNT[TMP,MSM] PAGE 3 LINE 34
IF |WIDTH - HAND
|
>TOL THEN PRINT("OBJECT NOT THE SIZE EXPECTED");
Argument 2 must have same dimensions as that of argument 1
Argument 2 has dimensions: [DISTANCE]↑1
argument 1 has dimensions: DIMENSIONLESS
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% WARNING ::
MSMPRC.PNT[TMP,MSM] PAGE 3 LINE 34
IF |WIDTH - HAND|>TOL
THEN
PRINT("OBJECT NOT THE SIZE EXPECTED");
Argument 2 must have same dimensions as that of argument 1
Argument 2 has dimensions: DIMENSIONLESS
argument 1 has dimensions: [DISTANCE]↑1
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% WARNING ::
MSMPRC.PNT[TMP,MSM] PAGE 3 LINE 40
OPEN HAND TO (HAND+OPENING
)
MIN HAND_MAX;
Argument 2 must have same dimensions as that of argument 1
Argument 2 has dimensions: DIMENSIONLESS
argument 1 has dimensions: [DISTANCE]↑1
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% WARNING ::
MSMPRC.PNT[TMP,MSM] PAGE 3 LINE 40
OPEN HAND TO (HAND+OPENING) MIN HAND_MAX
;
Argument 2 must have same dimensions as that of argument 1
Argument 2 has dimensions: DIMENSIONLESS
argument 1 has dimensions: [DISTANCE]↑1
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% WARNING ::
MSMPRC.PNT[TMP,MSM] PAGE 4 LINE 15
IF |ORIENT(INV(F1)*F2)|>TOL2
THEN
S2←2 ELSE S2←0;
Argument 2 must have same dimensions as that of argument 1
Argument 2 has dimensions: DIMENSIONLESS
argument 1 has dimensions: [ANGLE]↑1
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% WARNING ::
MSMPRC.PNT[TMP,MSM] PAGE 6 LINE 4
OPEN HAND TO (HAND + INC_DIST
)
MIN HAND_MAX;
Argument 2 must have same dimensions as that of argument 1
Argument 2 has dimensions: DIMENSIONLESS
argument 1 has dimensions: [DISTANCE]↑1
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% WARNING ::
MSMPRC.PNT[TMP,MSM] PAGE 6 LINE 4
OPEN HAND TO (HAND + INC_DIST) MIN HAND_MAX
;
Argument 2 must have same dimensions as that of argument 1
Argument 2 has dimensions: DIMENSIONLESS
argument 1 has dimensions: [DISTANCE]↑1
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% WARNING ::
MSMPRC.PNT[TMP,MSM] PAGE 6 LINE 18
RETURN((BHAND - S
)
<EXTRA_WIDTH*0.8);
Argument 2 must have same dimensions as that of argument 1
Argument 2 has dimensions: DIMENSIONLESS
argument 1 has dimensions: [DISTANCE]↑1
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% WARNING ::
MSMPRC.PNT[TMP,MSM] PAGE 6 LINE 18
RETURN((BHAND - S)<EXTRA_WIDTH*0.8
)
;
Argument 2 must have same dimensions as that of argument 1
Argument 2 has dimensions: DIMENSIONLESS
argument 1 has dimensions: [DISTANCE]↑1
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% WARNING ::
)
incompatible dimensions in substituting parameters
formal parameter EXTRA_WIDTH has dimensions: DIMENSIONLESS
current parameter has dimensions: [DISTANCE]↑1
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% WARNING ::
,3*ZHAT*INCHES
)
incompatible dimensions in substituting parameters
formal parameter APP has dimensions: DIMENSIONLESS
current parameter has dimensions: [DISTANCE]↑1
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% WARNING ::
)
incompatible dimensions in substituting parameters
formal parameter EXTRA_WIDTH has dimensions: DIMENSIONLESS
current parameter has dimensions: [DISTANCE]↑1
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% WARNING ::
MSMPRC.PNT[TMP,MSM] PAGE 6 LINE 35
PUT(ARM
,
OBJ,-3*ZHAT); { GET INTO POSITION}
incompatible dimensions in substituting parameters
formal parameter OBJ has dimensions: DIMENSIONLESS
current parameter has dimensions: [DISTANCE]↑1
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% WARNING ::
MSMPRC.PNT[TMP,MSM] PAGE 6 LINE 35
PUT(ARM,OBJ,-3*
)
; { GET INTO POSITION}
incompatible dimensions in substituting parameters
formal parameter APP has dimensions: DIMENSIONLESS
current parameter has dimensions: [DISTANCE]↑124888 *[FORCE]↑10 *[ANGLE]↑1
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% WARNING ::
MSMPRC.PNT[TMP,MSM] PAGE 6 LINE 37
IF |BHAND-WIDTH
|
>TOL THEN PROMPT("ERROR IN GET; PUT OBJECT IN HAND");
Argument 2 must have same dimensions as that of argument 1
Argument 2 has dimensions: DIMENSIONLESS
argument 1 has dimensions: [DISTANCE]↑1
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% WARNING ::
MSMPRC.PNT[TMP,MSM] PAGE 6 LINE 37
IF |BHAND-WIDTH|>TOL
THEN
PROMPT("ERROR IN GET; PUT OBJECT IN HAND");
Argument 2 must have same dimensions as that of argument 1
Argument 2 has dimensions: DIMENSIONLESS
argument 1 has dimensions: [DISTANCE]↑1
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% WARNING ::
MSMPRC.PNT[TMP,MSM] PAGE 6 LINE 38
OBJ←ARM
;
Dimensions of left hand and right hand sides are incompatible
LHS has dimensions: DIMENSIONLESS
RHS has dimensions: [DISTANCE]↑1
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% WARNING ::
,-3*ZHAT*INCHES
)
incompatible dimensions in substituting parameters
formal parameter APP has dimensions: DIMENSIONLESS
current parameter has dimensions: [DISTANCE]↑1
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% WARNING ::
,1*INCH
)
incompatible dimensions in substituting parameters
formal parameter INC_DIST has dimensions: DIMENSIONLESS
current parameter has dimensions: [DISTANCE]↑1
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% WARNING ::
MSMPRC.PNT[TMP,MSM] PAGE 7 LINE 15
YOFFSET←(DIAMETER/2) MIN 1.0*INCH
;
Dimensions of left hand and right hand sides are incompatible
LHS has dimensions: DIMENSIONLESS
RHS has dimensions: [DISTANCE]↑1
%%%%%%%%%%%%%%%%%%%%%%%}
EXT
{%%%%% ERROR ::
EXT
UNDECLARED IDENTIFIER EXT : requires ← or : here
%%%%%%%%%%%%%%%%%%%%%%%}
EXIT
{exiting at 0:42 16 Mar 1981
$FPMAX=0
$INTMAX=0
$PCDMAX=219}
{PONTY0.DMP[TMP,MSM] :0:55 16 Mar 1981 ALIAS [TMP,MSM] LOGIN [ 1,MSM]:Shahid}
QREAD MSMPRC.PNT
{%%%%% WARNING ::
MSMPRC.PNT[TMP,MSM] PAGE 3 LINE 38
IF OPENING>HAND_MAX
THEN
PRINT("HAND OPENING TOO LARGE, WILL OPEN TO HAND_MAX");
Argument 2 must have same dimensions as that of argument 1
Argument 2 has dimensions: DIMENSIONLESS
argument 1 has dimensions: [DISTANCE]↑1
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% WARNING ::
MSMPRC.PNT[TMP,MSM] PAGE 3 LINE 39
OPEN HAND TO (HAND+OPENING) MIN HAND_MAX
;
Argument 2 must have same dimensions as that of argument 1
Argument 2 has dimensions: DIMENSIONLESS
argument 1 has dimensions: [DISTANCE]↑1
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% WARNING ::
MSMPRC.PNT[TMP,MSM] PAGE 4 LINE 12
IF |POS(F1)-POS(F2)|>TOL1
THEN
S1←1 ELSE S1←0;
Argument 2 must have same dimensions as that of argument 1
Argument 2 has dimensions: [DISTANCE]↑1
argument 1 has dimensions: DIMENSIONLESS
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% WARNING ::
MSMPRC.PNT[TMP,MSM] PAGE 6 LINE 3
OPEN HAND TO (HAND + INC_DIST) MIN HAND_MAX
;
Argument 2 must have same dimensions as that of argument 1
Argument 2 has dimensions: DIMENSIONLESS
argument 1 has dimensions: [DISTANCE]↑1
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% WARNING ::
MSMPRC.PNT[TMP,MSM] PAGE 6 LINE 21
IF TOO_NARROW(WIDTH
)
incompatible dimensions in substituting parameters
formal parameter S has dimensions: [DISTANCE]↑1
current parameter has dimensions: DIMENSIONLESS
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% WARNING ::
,3*ZHAT*INCHES
)
incompatible dimensions in substituting parameters
formal parameter APP has dimensions: DIMENSIONLESS
current parameter has dimensions: [DISTANCE]↑1
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% WARNING ::
MSMPRC.PNT[TMP,MSM] PAGE 6 LINE 32
READY_GRAB(WIDT
)
; { MAKES SURE OPEN TO RIGHT SIZE}
incompatible dimensions in substituting parameters
formal parameter WIDTH has dimensions: DIMENSIONLESS
current parameter has dimensions: [DISTANCE]↑1
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% WARNING ::
)
incompatible dimensions in substituting parameters
formal parameter EXTRA_WIDTH has dimensions: DIMENSIONLESS
current parameter has dimensions: [DISTANCE]↑1
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% WARNING ::
MSMPRC.PNT[TMP,MSM] PAGE 6 LINE 33
PUT(ARM
,
OBJ,-3*ZHAT*INCHES); { GET INTO POSITION}
incompatible dimensions in substituting parameters
formal parameter OBJ has dimensions: DIMENSIONLESS
current parameter has dimensions: [DISTANCE]↑1
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% WARNING ::
MSMPRC.PNT[TMP,MSM] PAGE 6 LINE 36
OBJ←ARM
;
Dimensions of left hand and right hand sides are incompatible
LHS has dimensions: DIMENSIONLESS
RHS has dimensions: [DISTANCE]↑1
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% WARNING ::
,3.8
)
incompatible dimensions in substituting parameters
formal parameter TOL has dimensions: [DISTANCE]↑1
current parameter has dimensions: DIMENSIONLESS
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% WARNING ::
MSMPRC.PNT[TMP,MSM] PAGE 7 LINE 3
MOVE BARM TO FINAL_FRAME- (DIAMETER/2)*YHAT
+
(OFFSET + .3)*ZHAT
Argument 2 must have same dimensions as that of argument 1
Argument 2 has dimensions: [DISTANCE]↑1
argument 1 has dimensions: DIMENSIONLESS
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% WARNING ::
MSMPRC.PNT[TMP,MSM] PAGE 7 LINE 3
MOVE BARM TO FINAL_FRAME- (DIAMETER/2)*YHAT + (OFFSET + .3
)
*ZHAT
Argument 2 must have same dimensions as that of argument 1
Argument 2 has dimensions: DIMENSIONLESS
argument 1 has dimensions: [DISTANCE]↑1
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% WARNING ::
MSMPRC.PNT[TMP,MSM] PAGE 7 LINE 5
MOVE BARM VIA FINAL_FRAME - (DIAMETER/3)*YHAT
-
OFFSET/2*ZHAT
Argument 2 must have same dimensions as that of argument 1
Argument 2 has dimensions: [DISTANCE]↑1
argument 1 has dimensions: DIMENSIONLESS
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% WARNING ::
MSMPRC.PNT[TMP,MSM] PAGE 7 LINE 6
TO FINAL_FRAME + (DIAMETER/2)*YHAT
-
OFFSET*ZHAT
Argument 2 must have same dimensions as that of argument 1
Argument 2 has dimensions: [DISTANCE]↑1
argument 1 has dimensions: DIMENSIONLESS
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% WARNING ::
MSMPRC.PNT[TMP,MSM] PAGE 7 LINE 15
YOFFSET←(DIAMETER/2) MIN 1.0*INCH
;
Dimensions of left hand and right hand sides are incompatible
LHS has dimensions: DIMENSIONLESS
RHS has dimensions: [DISTANCE]↑1
%%%%%%%%%%%%%%%%%%%%%%%}
EXIT
{exiting at 1:00 16 Mar 1981
$FPMAX=0
$INTMAX=0
$PCDMAX=219}
{PONTY0.DMP[TMP,MSM] :1:16 16 Mar 1981 ALIAS [TMP,MSM] LOGIN [ 1,MSM]:Shahid}
QREAD MSMPRC.PNT
{%%%%% WARNING ::
MSMPRC.PNT[TMP,MSM] PAGE 3 LINE 18
IF OPENING>HAND_MAX
THEN
PRINT("HAND OPENING TOO LARGE, WILL OPEN TO HAND_MAX");
Argument 2 must have same dimensions as that of argument 1
Argument 2 has dimensions: [DISTANCE]↑1
argument 1 has dimensions: DIMENSIONLESS
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% WARNING ::
3.8
*
INCHES
Argument 2 must have same dimensions as that of argument 1
Argument 2 has dimensions: DIMENSIONLESS
argument 1 has dimensions: [DISTANCE]↑1
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% WARNING ::
MSMPRC.PNT[TMP,MSM] PAGE 4 LINE 12
IF |POS(F1)-POS(F2)|>TOL1
THEN
S1←1 ELSE S1←0;
Argument 2 must have same dimensions as that of argument 1
Argument 2 has dimensions: [DISTANCE]↑1
argument 1 has dimensions: DIMENSIONLESS
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% WARNING ::
3.8
*
INCHES
Argument 2 must have same dimensions as that of argument 1
Argument 2 has dimensions: DIMENSIONLESS
argument 1 has dimensions: [DISTANCE]↑1
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% WARNING ::
3.8
*
INCHES
Argument 2 must have same dimensions as that of argument 1
Argument 2 has dimensions: DIMENSIONLESS
argument 1 has dimensions: [DISTANCE]↑1
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% WARNING ::
,3*ZHAT*INCHES
)
incompatible dimensions in substituting parameters
formal parameter APP has dimensions: DIMENSIONLESS
current parameter has dimensions: [DISTANCE]↑1
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% WARNING ::
MSMPRC.PNT[TMP,MSM] PAGE 6 LINE 33
PUT(ARM
,
OBJ,-3*ZHAT*INCHES); { GET INTO POSITION}
incompatible dimensions in substituting parameters
formal parameter OBJ has dimensions: DIMENSIONLESS
current parameter has dimensions: [DISTANCE]↑1
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% WARNING ::
MSMPRC.PNT[TMP,MSM] PAGE 6 LINE 36
OBJ←ARM
;
Dimensions of left hand and right hand sides are incompatible
LHS has dimensions: DIMENSIONLESS
RHS has dimensions: [DISTANCE]↑1
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% WARNING ::
,3.8
)
incompatible dimensions in substituting parameters
formal parameter TOL has dimensions: [DISTANCE]↑1
current parameter has dimensions: DIMENSIONLESS
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% WARNING ::
MSMPRC.PNT[TMP,MSM] PAGE 7 LINE 3
MOVE BARM TO FINAL_FRAME- (DIAMETER/2)*YHAT
+
(OFFSET + .3*INCHES)*ZHAT
Argument 2 must have same dimensions as that of argument 1
Argument 2 has dimensions: [DISTANCE]↑1
argument 1 has dimensions: DIMENSIONLESS
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% WARNING ::
MSMPRC.PNT[TMP,MSM] PAGE 7 LINE 5
MOVE BARM VIA FINAL_FRAME - (DIAMETER/3)*YHAT
-
OFFSET/2*ZHAT
Argument 2 must have same dimensions as that of argument 1
Argument 2 has dimensions: [DISTANCE]↑1
argument 1 has dimensions: DIMENSIONLESS
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% WARNING ::
MSMPRC.PNT[TMP,MSM] PAGE 7 LINE 6
TO FINAL_FRAME + (DIAMETER/2)*YHAT
-
OFFSET*ZHAT
Argument 2 must have same dimensions as that of argument 1
Argument 2 has dimensions: [DISTANCE]↑1
argument 1 has dimensions: DIMENSIONLESS
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% WARNING ::
MSMPRC.PNT[TMP,MSM] PAGE 7 LINE 15
YOFFSET←(DIAMETER/2) MIN 1.0
*
INCH;
Argument 2 must have same dimensions as that of argument 1
Argument 2 has dimensions: DIMENSIONLESS
argument 1 has dimensions: [DISTANCE]↑1
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% WARNING ::
MSMPRC.PNT[TMP,MSM] PAGE 7 LINE 15
YOFFSET←(DIAMETER/2) MIN 1.0*INCH
;
Dimensions of left hand and right hand sides are incompatible
LHS has dimensions: [DISTANCE]↑1
RHS has dimensions: [DISTANCE]↑2
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% WARNING ::
MSMPRC.PNT[TMP,MSM] PAGE 7 LINE 16
MOVE BARM TO DEST - YOFFSET*YHAT
+
OFFSET*ZHAT
Argument 2 must have same dimensions as that of argument 1
Argument 2 has dimensions: [DISTANCE]↑1
argument 1 has dimensions: DIMENSIONLESS
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% WARNING ::
MSMPRC.PNT[TMP,MSM] PAGE 7 LINE 19
TO
DEST + VECTOR(0,YOFFSET,-OFFSET)
Argument 2 must have same dimensions as that of argument 1
Argument 2 has dimensions: [DISTANCE]↑1
argument 1 has dimensions: DIMENSIONLESS
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% WARNING ::
MSMPRC.PNT[TMP,MSM] PAGE 7 LINE 19
TO
DEST + VECTOR(0,YOFFSET,-OFFSET)
Argument 3 must have same dimensions as that of argument 1
Argument 3 has dimensions: [DISTANCE]↑1
argument 1 has dimensions: DIMENSIONLESS
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% WARNING ::
MSMPRC.PNT[TMP,MSM] PAGE 7 LINE 19
TO
DEST + VECTOR(0,YOFFSET,-OFFSET)
Argument 2 must have same dimensions as that of argument 1
Argument 2 has dimensions: [DISTANCE]↑1
argument 1 has dimensions: DIMENSIONLESS
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% WARNING ::
MSMPRC.PNT[TMP,MSM] PAGE 7 LINE 20
WITH
STIFFNESS=(40,20,40,200,400,200)
Argument 2 must have same dimensions as that of argument 1
Argument 2 has dimensions: [DISTANCE]↑1
argument 1 has dimensions: DIMENSIONLESS
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% WARNING ::
MSMPRC.PNT[TMP,MSM] PAGE 7 LINE 20
WITH
STIFFNESS=(40,20,40,200,400,200)
Argument 3 must have same dimensions as that of argument 1
Argument 3 has dimensions: [DISTANCE]↑1
argument 1 has dimensions: DIMENSIONLESS
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% WARNING ::
MSMPRC.PNT[TMP,MSM] PAGE 7 LINE 20
WITH
STIFFNESS=(40,20,40,200,400,200)
Argument 2 must have same dimensions as that of argument 1
Argument 2 has dimensions: [DISTANCE]↑1
argument 1 has dimensions: DIMENSIONLESS
%%%%%%%%%%%%%%%%%%%%%%%}
EXIT
{exiting at 1:18 16 Mar 1981
$FPMAX=0
$INTMAX=0
$PCDMAX=219}
{PONTY0.DMP[TMP,MSM] :1:22 16 Mar 1981 ALIAS [TMP,MSM] LOGIN [ 1,MSM]:Shahid}
DISTANCE SCALAR S1
S1←POS(BARM)
{%%%%% ERROR ::
S1←POS(BARM)
INCOMPATIBLE TYPE ASSIGNMENT
%%%%%%%%%%%%%%%%%%%%%%%}
DISTANCE SCALAR V1;
V1←POS(BARM)
{%%%%% ERROR ::
V1←POS(BARM)
INCOMPATIBLE TYPE ASSIGNMENT
%%%%%%%%%%%%%%%%%%%%%%%}
DISTANCE VECTOR VV1; VV1←POS(BARM)
VV1←POS(BARM)←
{%%%%% ERROR ::
VV1←POS(BARM)
←
Need ; or carriage return here
%%%%%%%%%%%%%%%%%%%%%%%}
VV1←POS(BARM)-POS(GARM)
{PONTY0.DMP[TMP,MSM] :1:28 16 Mar 1981 ALIAS [TMP,MSM] LOGIN [ 1,MSM]:Shahid}
QREAD MSMPRC.PNT
{%%%%% WARNING ::
3.8
*
INCHES
Argument 2 must have same dimensions as that of argument 1
Argument 2 has dimensions: DIMENSIONLESS
argument 1 has dimensions: [DISTANCE]↑1
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% WARNING ::
3.8
*
INCHES
Argument 2 must have same dimensions as that of argument 1
Argument 2 has dimensions: DIMENSIONLESS
argument 1 has dimensions: [DISTANCE]↑1
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% WARNING ::
MSMPRC.PNT[TMP,MSM] PAGE 4 LINE 12
IF |POS(F1)-POS(F2)|>TOL1
THEN
S1←1 ELSE S1←0;
Argument 2 must have same dimensions as that of argument 1
Argument 2 has dimensions: [DISTANCE]↑1
argument 1 has dimensions: DIMENSIONLESS
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% WARNING ::
3.8
*
INCHES
Argument 2 must have same dimensions as that of argument 1
Argument 2 has dimensions: DIMENSIONLESS
argument 1 has dimensions: [DISTANCE]↑1
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% WARNING ::
3.8
*
INCHES
Argument 2 must have same dimensions as that of argument 1
Argument 2 has dimensions: DIMENSIONLESS
argument 1 has dimensions: [DISTANCE]↑1
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% WARNING ::
,3*ZHAT*INCHES
)
incompatible dimensions in substituting parameters
formal parameter APP has dimensions: DIMENSIONLESS
current parameter has dimensions: [DISTANCE]↑1
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% WARNING ::
MSMPRC.PNT[TMP,MSM] PAGE 6 LINE 33
PUT(ARM
,
OBJ,-3*ZHAT*INCHES); { GET INTO POSITION}
incompatible dimensions in substituting parameters
formal parameter OBJ has dimensions: DIMENSIONLESS
current parameter has dimensions: [DISTANCE]↑1
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% WARNING ::
MSMPRC.PNT[TMP,MSM] PAGE 6 LINE 36
OBJ←ARM
;
Dimensions of left hand and right hand sides are incompatible
LHS has dimensions: DIMENSIONLESS
RHS has dimensions: [DISTANCE]↑1
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% WARNING ::
,3.8
)
incompatible dimensions in substituting parameters
formal parameter TOL has dimensions: [DISTANCE]↑1
current parameter has dimensions: DIMENSIONLESS
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% WARNING ::
MSMPRC.PNT[TMP,MSM] PAGE 7 LINE 3
MOVE BARM TO FINAL_FRAME- (DIAMETER/2)*YHAT
+
(OFFSET + .3*INCHES)*ZHAT
Argument 2 must have same dimensions as that of argument 1
Argument 2 has dimensions: [DISTANCE]↑1
argument 1 has dimensions: DIMENSIONLESS
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% WARNING ::
MSMPRC.PNT[TMP,MSM] PAGE 7 LINE 5
MOVE BARM VIA FINAL_FRAME - (DIAMETER/3)*YHAT
-
OFFSET/2*ZHAT
Argument 2 must have same dimensions as that of argument 1
Argument 2 has dimensions: [DISTANCE]↑1
argument 1 has dimensions: DIMENSIONLESS
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% WARNING ::
MSMPRC.PNT[TMP,MSM] PAGE 7 LINE 6
TO FINAL_FRAME + (DIAMETER/2)*YHAT
-
OFFSET*ZHAT
Argument 2 must have same dimensions as that of argument 1
Argument 2 has dimensions: [DISTANCE]↑1
argument 1 has dimensions: DIMENSIONLESS
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% WARNING ::
MSMPRC.PNT[TMP,MSM] PAGE 7 LINE 15
YOFFSET←(DIAMETER/2) MIN 1.0
*
INCH;
Argument 2 must have same dimensions as that of argument 1
Argument 2 has dimensions: DIMENSIONLESS
argument 1 has dimensions: [DISTANCE]↑1
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% WARNING ::
MSMPRC.PNT[TMP,MSM] PAGE 7 LINE 15
YOFFSET←(DIAMETER/2) MIN 1.0*INCH
;
Dimensions of left hand and right hand sides are incompatible
LHS has dimensions: [DISTANCE]↑1
RHS has dimensions: [DISTANCE]↑2
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% WARNING ::
MSMPRC.PNT[TMP,MSM] PAGE 7 LINE 16
MOVE BARM TO DEST - YOFFSET*YHAT
+
OFFSET*ZHAT
Argument 2 must have same dimensions as that of argument 1
Argument 2 has dimensions: [DISTANCE]↑1
argument 1 has dimensions: DIMENSIONLESS
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% WARNING ::
MSMPRC.PNT[TMP,MSM] PAGE 7 LINE 19
TO
DEST + VECTOR(0,YOFFSET,-OFFSET)
Argument 2 must have same dimensions as that of argument 1
Argument 2 has dimensions: [DISTANCE]↑1
argument 1 has dimensions: DIMENSIONLESS
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% WARNING ::
MSMPRC.PNT[TMP,MSM] PAGE 7 LINE 19
TO
DEST + VECTOR(0,YOFFSET,-OFFSET)
Argument 3 must have same dimensions as that of argument 1
Argument 3 has dimensions: [DISTANCE]↑1
argument 1 has dimensions: DIMENSIONLESS
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% WARNING ::
MSMPRC.PNT[TMP,MSM] PAGE 7 LINE 19
TO
DEST + VECTOR(0,YOFFSET,-OFFSET)
Argument 2 must have same dimensions as that of argument 1
Argument 2 has dimensions: [DISTANCE]↑1
argument 1 has dimensions: DIMENSIONLESS
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% WARNING ::
MSMPRC.PNT[TMP,MSM] PAGE 7 LINE 20
WITH
STIFFNESS=(40,20,40,200,400,200)
Argument 2 must have same dimensions as that of argument 1
Argument 2 has dimensions: [DISTANCE]↑1
argument 1 has dimensions: DIMENSIONLESS
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% WARNING ::
MSMPRC.PNT[TMP,MSM] PAGE 7 LINE 20
WITH
STIFFNESS=(40,20,40,200,400,200)
Argument 3 must have same dimensions as that of argument 1
Argument 3 has dimensions: [DISTANCE]↑1
argument 1 has dimensions: DIMENSIONLESS
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% WARNING ::
MSMPRC.PNT[TMP,MSM] PAGE 7 LINE 20
WITH
STIFFNESS=(40,20,40,200,400,200)
Argument 2 must have same dimensions as that of argument 1
Argument 2 has dimensions: [DISTANCE]↑1
argument 1 has dimensions: DIMENSIONLESS
%%%%%%%%%%%%%%%%%%%%%%%}
EXIT
{exiting at 1:29 16 Mar 1981
$FPMAX=0
$INTMAX=0
$PCDMAX=219}
{PONTY0.DMP[TMP,MSM] :1:33 16 Mar 1981 ALIAS [TMP,MSM] LOGIN [ 1,MSM]:Shahid}
QREAD MSMPRC.PNT
{%%%%% WARNING ::
MSMPRC.PNT[TMP,MSM] PAGE 4 LINE 12
IF |POS(F1)-POS(F2)|>TOL1
THEN
S1←1 ELSE S1←0;
Argument 2 must have same dimensions as that of argument 1
Argument 2 has dimensions: [DISTANCE]↑1
argument 1 has dimensions: DIMENSIONLESS
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% WARNING ::
,3*ZHAT*INCHES
)
incompatible dimensions in substituting parameters
formal parameter APP has dimensions: DIMENSIONLESS
current parameter has dimensions: [DISTANCE]↑1
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% WARNING ::
MSMPRC.PNT[TMP,MSM] PAGE 6 LINE 33
PUT(ARM
,
OBJ,-3*ZHAT*INCHES); { GET INTO POSITION}
incompatible dimensions in substituting parameters
formal parameter OBJ has dimensions: DIMENSIONLESS
current parameter has dimensions: [DISTANCE]↑1
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% WARNING ::
MSMPRC.PNT[TMP,MSM] PAGE 6 LINE 36
OBJ←ARM
;
Dimensions of left hand and right hand sides are incompatible
LHS has dimensions: DIMENSIONLESS
RHS has dimensions: [DISTANCE]↑1
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% WARNING ::
,3.8
)
incompatible dimensions in substituting parameters
formal parameter TOL has dimensions: [DISTANCE]↑1
current parameter has dimensions: DIMENSIONLESS
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% WARNING ::
MSMPRC.PNT[TMP,MSM] PAGE 7 LINE 3
MOVE BARM TO FINAL_FRAME- (DIAMETER/2)*YHAT
+
(OFFSET + .3*INCHES)*ZHAT
Argument 2 must have same dimensions as that of argument 1
Argument 2 has dimensions: [DISTANCE]↑1
argument 1 has dimensions: DIMENSIONLESS
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% WARNING ::
MSMPRC.PNT[TMP,MSM] PAGE 7 LINE 5
MOVE BARM VIA FINAL_FRAME - (DIAMETER/3)*YHAT
-
OFFSET/2*ZHAT
Argument 2 must have same dimensions as that of argument 1
Argument 2 has dimensions: [DISTANCE]↑1
argument 1 has dimensions: DIMENSIONLESS
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% WARNING ::
MSMPRC.PNT[TMP,MSM] PAGE 7 LINE 6
TO FINAL_FRAME + (DIAMETER/2)*YHAT
-
OFFSET*ZHAT
Argument 2 must have same dimensions as that of argument 1
Argument 2 has dimensions: [DISTANCE]↑1
argument 1 has dimensions: DIMENSIONLESS
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% WARNING ::
MSMPRC.PNT[TMP,MSM] PAGE 7 LINE 15
YOFFSET←(DIAMETER/2) MIN 1.0
*
INCH;
Argument 2 must have same dimensions as that of argument 1
Argument 2 has dimensions: DIMENSIONLESS
argument 1 has dimensions: [DISTANCE]↑1
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% WARNING ::
MSMPRC.PNT[TMP,MSM] PAGE 7 LINE 15
YOFFSET←(DIAMETER/2) MIN 1.0*INCH
;
Dimensions of left hand and right hand sides are incompatible
LHS has dimensions: [DISTANCE]↑1
RHS has dimensions: [DISTANCE]↑2
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% WARNING ::
MSMPRC.PNT[TMP,MSM] PAGE 7 LINE 16
MOVE BARM TO DEST - YOFFSET*YHAT
+
OFFSET*ZHAT
Argument 2 must have same dimensions as that of argument 1
Argument 2 has dimensions: [DISTANCE]↑1
argument 1 has dimensions: DIMENSIONLESS
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% WARNING ::
MSMPRC.PNT[TMP,MSM] PAGE 7 LINE 19
TO
DEST + VECTOR(0,YOFFSET,-OFFSET)
Argument 2 must have same dimensions as that of argument 1
Argument 2 has dimensions: [DISTANCE]↑1
argument 1 has dimensions: DIMENSIONLESS
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% WARNING ::
MSMPRC.PNT[TMP,MSM] PAGE 7 LINE 19
TO
DEST + VECTOR(0,YOFFSET,-OFFSET)
Argument 3 must have same dimensions as that of argument 1
Argument 3 has dimensions: [DISTANCE]↑1
argument 1 has dimensions: DIMENSIONLESS
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% WARNING ::
MSMPRC.PNT[TMP,MSM] PAGE 7 LINE 19
TO
DEST + VECTOR(0,YOFFSET,-OFFSET)
Argument 2 must have same dimensions as that of argument 1
Argument 2 has dimensions: [DISTANCE]↑1
argument 1 has dimensions: DIMENSIONLESS
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% WARNING ::
MSMPRC.PNT[TMP,MSM] PAGE 7 LINE 20
WITH
STIFFNESS=(40,20,40,200,400,200)
Argument 2 must have same dimensions as that of argument 1
Argument 2 has dimensions: [DISTANCE]↑1
argument 1 has dimensions: DIMENSIONLESS
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% WARNING ::
MSMPRC.PNT[TMP,MSM] PAGE 7 LINE 20
WITH
STIFFNESS=(40,20,40,200,400,200)
Argument 3 must have same dimensions as that of argument 1
Argument 3 has dimensions: [DISTANCE]↑1
argument 1 has dimensions: DIMENSIONLESS
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% WARNING ::
MSMPRC.PNT[TMP,MSM] PAGE 7 LINE 20
WITH
STIFFNESS=(40,20,40,200,400,200)
Argument 2 must have same dimensions as that of argument 1
Argument 2 has dimensions: [DISTANCE]↑1
argument 1 has dimensions: DIMENSIONLESS
%%%%%%%%%%%%%%%%%%%%%%%}
EXIT
{exiting at 1:34 16 Mar 1981
$FPMAX=0
$INTMAX=0
$PCDMAX=219}
{5.N .$↑ [$X , *] :1:54 16 Mar 1981 ALIAS [TMP,MSM] LOGIN [ 1,MSM]:Shahid}
QREAD MSMPRC.PNT
{%%%%% WARNING ::
MSMPRC.PNT[TMP,MSM] PAGE 6 LINE 10
RETURN(|POS(OBJ)-POS(DEST - .5*APP WRT DEST
)
|> |APP*.5|);
Argument 2 must have same dimensions as that of argument 1
Argument 2 has dimensions: [DISTANCE]↑1
argument 1 has dimensions: DIMENSIONLESS
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% WARNING ::
MSMPRC.PNT[TMP,MSM] PAGE 6 LINE 10
RETURN(|POS(OBJ)-POS(DEST - .5*APP WRT DEST)|> |APP*.5|
)
;
Argument 2 must have same dimensions as that of argument 1
Argument 2 has dimensions: DIMENSIONLESS
argument 1 has dimensions: [DISTANCE]↑1
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% WARNING ::
,3*ZHAT*INCHES
)
incompatible dimensions in substituting parameters
formal parameter APP has dimensions: DIMENSIONLESS
current parameter has dimensions: [DISTANCE]↑1
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% WARNING ::
,3.8
)
incompatible dimensions in substituting parameters
formal parameter TOL has dimensions: [DISTANCE]↑1
current parameter has dimensions: DIMENSIONLESS
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% WARNING ::
MSMPRC.PNT[TMP,MSM] PAGE 7 LINE 15
YOFFSET←(DIAMETER/2) MIN 1.0
*
INCH;
Argument 2 must have same dimensions as that of argument 1
Argument 2 has dimensions: DIMENSIONLESS
argument 1 has dimensions: [DISTANCE]↑1
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% WARNING ::
MSMPRC.PNT[TMP,MSM] PAGE 7 LINE 15
YOFFSET←(DIAMETER/2) MIN 1.0*INCH
;
Dimensions of left hand and right hand sides are incompatible
LHS has dimensions: [DISTANCE]↑1
RHS has dimensions: [DISTANCE]↑2
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% WARNING ::
MSMPRC.PNT[TMP,MSM] PAGE 7 LINE 19
TO
DEST + VECTOR(0,YOFFSET,-OFFSET)
Argument 2 must have same dimensions as that of argument 1
Argument 2 has dimensions: [DISTANCE]↑1
argument 1 has dimensions: DIMENSIONLESS
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% WARNING ::
MSMPRC.PNT[TMP,MSM] PAGE 7 LINE 19
TO
DEST + VECTOR(0,YOFFSET,-OFFSET)
Argument 3 must have same dimensions as that of argument 1
Argument 3 has dimensions: [DISTANCE]↑1
argument 1 has dimensions: DIMENSIONLESS
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% WARNING ::
MSMPRC.PNT[TMP,MSM] PAGE 7 LINE 20
WITH
STIFFNESS=(40,20,40,200,400,200)
Argument 2 must have same dimensions as that of argument 1
Argument 2 has dimensions: [DISTANCE]↑1
argument 1 has dimensions: DIMENSIONLESS
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% WARNING ::
MSMPRC.PNT[TMP,MSM] PAGE 7 LINE 20
WITH
STIFFNESS=(40,20,40,200,400,200)
Argument 3 must have same dimensions as that of argument 1
Argument 3 has dimensions: [DISTANCE]↑1
argument 1 has dimensions: DIMENSIONLESS
%%%%%%%%%%%%%%%%%%%%%%%}
EXIT
{exiting at 1:55 16 Mar 1981
$FPMAX=0
$INTMAX=0
$PCDMAX=219}
{PONTY0.DMP[TMP,MSM] :2:02 16 Mar 1981 ALIAS [TMP,MSM] LOGIN [ 1,MSM]:Shahid}
QREAD MSMPRC.PNT
QREAD MSMPR2.PNT
EXIT
{exiting at 2:03 16 Mar 1981
$FPMAX=0
$INTMAX=0
$PCDMAX=219}
{PONTY0.DMP[PNT, HE] :11:35 16 Mar 1981 ALIAS [PUM, HE] LOGIN [ 1, RV]:Rick}
READ SPRDEF
CALIB(GARM)
MOVE GARM TO BODY_PICKUP - 4*(ZHAT WRT BODY_PICKUP)*INCHES WITH DURATION=5;
MOVE GARM TO BODY_PICKUP WITH DURATION=5;
<ESCAPE> I termination
PFREE
<ESCAPE> I termination
PFREE
CALIB(GARM)
MOVE GARM TO BODY_DROP1 - 4*(ZHAT WRT BODY_DROP1)*INCH WITH DURATION=5
PFREE
PFREE
CALIB(GARM)
MOVE GARM TO BODY_DROP1 - 4*(ZHAT WRT BODY_DROP1)*INCH WITH DURATION=5;
PGRAV
PFREE
PRINT(GARM)
PFREE
DDT
PFREE
PFREE
PFREE
PTOOL
BODY_DROP1 ← GARM
UPDATE
UPDATE
PTOOL
MOVE GARM TO BODY_DROP1 - 4*(ZHAT WRT BODY_DROP1)*INCHES WITH DURATION=5
MOVE GARM TO BODY_DROP1 WITH DURATION=5
PTOOL
MOVE GARM TO BODY_PICKUP - 3*(ZHAT WRT BODY_PICKUP)*INCH WITH DURATION=5
PJOINT
PTOOL
PTOOL
PTOOL
PJOINT
BODY_PICKUP ← GARM
PTOOL
MOVE GARM TO BODY_DROP1 - 3*(ZHAT WRT BODY_DROP1)*INCHES WITH DURATION=5
PTOOL
PJOINT
PTOOL
BODY_DROP1 ← GARM
PJOINT
PTOOL
BODY_DROP2 ← GARM
PTOOL
MOVE GARM TO STEM_LOC +3*ZHAT WITH DURATION=4;
PJOINT
MOVE GARM TO STEM_LOC DIRECTLY WITH DURATION=4;
MOVE GARM TO STEM_LOC - 2.96*YHAT*INCHES DIRECTLY WITH DURATION=4;
PTABLE
MOVE GARM TO ⊗+2.96*YHAT*INCHES DIRECTLY WITH DURATION=4
STEM_LOC ← GARM
PTABLE
DRIVER_LOC ← GARM
PTABLE
MOVE GARM TO PUMA_STEM_HOLD DIRECTLY WITH DURATION=5
MOVE GARM TO STEM_BACKOFF DIRECTLY WITH DURATION=5
PTOOL
PTOOL
SPEED_FACTOR ← 10
GET_BODY
CLOSE
GHAND
;
Need BHAND or YHAND after CLOSE
OPEN
GHAND
;
Need BHAND or YHAND after OPEN
DEPOSIT_BODY_AND_GRAB_STEM
CLO
GHAND
; {CLOSE HAND TO PROVIDE A LITTLE COMPIANCE}
Need BHAND or YHAND after CLOSE
OPE
GHAND
; {OPEN THE HAND SO WE CAN GRAB THE STEM}
Need BHAND or YHAND after OPEN
PTOOL
PUT_STEM_IN_DRIVER
MOVE GARM TO STEM_BACKOFF
PTOOL
WRITE ALL INTO SPRDEF
HELP FILE
EXIT
{exiting at 12:39 16 Mar 1981
$FPMAX=96
$INTMAX=5
$PCDMAX=57}
{PONTY0.DMP[PNT, HE] :12:57 16 Mar 1981 ALIAS [PUM, HE] LOGIN [ 1, RV]:Rick}
P1 ← BARM
CLOSE BHAND TO 0*INCHES
MOVE GARM TO BPARK WITH DURATION=4 DIRECTLY;
<ESCAPE> I termination
EXIT
{exiting at 13:00 16 Mar 1981
$FPMAX=60
$INTMAX=5
$PCDMAX=36}
{PONTY0.DMP[PNT, HE] :13:11 16 Mar 1981 ALIAS [ 1,MSM] LOGIN [ 1,MSM]:Shahid}
CALIB(GARM)
MOVE GARM TO GPARK WITH DURATION=5
PJOINT(GARM)
PFREE(GARM)
PGRAV(GARM)
PJOINT(GARM)
PTABLE(GARM)
PJOINT(GARM)
PTABLE(GARM)
EXIT
{exiting at 13:42 16 Mar 1981
$FPMAX=0
$INTMAX=5
$PCDMAX=27}
{PONTY0.DMP[TMP,MSM] :14:33 16 Mar 1981 ALIAS [PNT, HE] LOGIN [ 1,MSM]:Shahid}
CALIB(GARM)
MOVE BARM TO BPARK
MOVE BARM TO BARM+5*XHAT
{%%%%% WARNING ::
MOVE BARM TO BARM+5*XHAT
Argument 2 must have same dimensions as that of argument 1
Argument 2 has dimensions: DIMENSIONLESS
argument 1 has dimensions: [DISTANCE]↑1
%%%%%%%%%%%%%%%%%%%%%%%}
MOVE BARM TO BARM+5*XHAT*INCHES
MOVE BARM TO BPARK
OPEN BHAND TO 0
DRIVE BJT(1) TO 90
DRIVE BJT(1) BY -10
DRIVE BJT(2) BY -10
MOVE BARM TO BPARK
PGRAV(GARM)
PFREE(GARM)
PFREE(GARM)
PFREE(GARM)
PJOINT(GARM)
PTABLE(GARM)
PTOOL(GARM)
PTABLE(GARM)
PGRAV(GARM)
MOVE GARM TO GPARK
CALIB(RARM)
HELP
EXIT
{exiting at 14:46 16 Mar 1981
$FPMAX=0
$INTMAX=5
$PCDMAX=29}
{PONTY0.DMP[TMP,MSM] :14:48 16 Mar 1981 ALIAS [PNT, HE] LOGIN [ 1,MSM]:Shahid}
CALIB(RARM)
MOVE RARM TO RPARK
PFREE(RARM)
PFREE(RARM)
PGRAV(RARM)
SETSTATUS(NOELF)
QREAD MSMPRC.PNT[TMP,MSM]
RESETSTATUS(NOELF)
CALIB(GARM)
PJOINT(GARM)
PFREE(GARM)
PFREE(GARM)
OPEN GHAND TO 1
OPEN GHAND TO 0
OPEN GHAND TO 1
OPEN GHAND TO 0
OPEN GHAND TO -1
OPEN GHAND TO 1
OPEN GHAND TO -1
PRINT(GHAND)
PRINT(GHAND)
EXIT
{exiting at 15:14 16 Mar 1981
$FPMAX=0
$INTMAX=5
$PCDMAX=219}
{5.N .$↑ [$X , *] :15:36 16 Mar 1981 ALIAS [TMP,MSM] LOGIN [ 1,MSM]:Shahid}
UPDATE
REDISPLAY
UPDATE
NOUPDATE
MOVE BARM TO BPARK
W←3
X←24
UPDATE
UPDATE
HELP
EXIT
{exiting at 15:46 16 Mar 1981
$FPMAX=54
$INTMAX=5
$PCDMAX=34}
{PONTY0.DMP[TMP,MSM] :16:05 16 Mar 1981 ALIAS [TMP,MSM] LOGIN [ 1,MSM]:Shahid}
HELP
CALIB(GARM)
PFREE(GARM)
PGRAV(GARM)
DDT
CALIB(RARM)
PGRAV(RARM)
DDT
PGRAV(RARM)
DDT
PGRAV(RARM)
DDT
PGRAV(ARM)
{%%%%% ERROR ::
PGRAV(
ARM
)
⊂RARM⊃ or ⊂GARM⊃ is required here
%%%%%%%%%%%%%%%%%%%%%%%}
PGRAV(RARM)
{PONTY0.DMP[TMP,MSM] :16:39 16 Mar 1981 ALIAS [TMP,MSM] LOGIN [ 1,MSM]:Shahid}
CALIB(GARM)
DDT
PGRAV(GARM)
OPEN GHAND TO 1
CLOSE GHAND TO 1
CLOSE GHAND BY 1
CLOSE GHAND BY 2
CLOSE GHAND TO 0
CLOSE GHAND TO 1
REDISPLAY
UPDATE
UPDATE; PROMPT("TYPE P");
MOVE GARM TO GPARK
EXIT;
{exiting at 17:06 16 Mar 1981
$FPMAX=54
$INTMAX=5
$PCDMAX=33}
{PONTY0.DMP[TMP,MSM] :21:07 16 Mar 1981 ALIAS [TMP,MSM] LOGIN [ 1,MSM]:Shahid}
A←3
B←4
C←6
D←5
E←6
F←7
G←8
EXIT
{exiting at 21:08 16 Mar 1981
$FPMAX=0
$INTMAX=0
$PCDMAX=27}
{PONTYX.DMP[TMP,MSM] :21:10 16 Mar 1981 ALIAS [TMP,MSM] LOGIN [ 1,MSM]:Shahid}
A←1
B←2
C←3
D←4
E←5
F←6
G←7
H←8
I←9
J←10
EXIT
{exiting at 21:11 16 Mar 1981
$FPMAX=0
$INTMAX=0
$PCDMAX=27}
{PONTYX.DMP[TMP,MSM] :21:13 16 Mar 1981 ALIAS [TMP,MSM] LOGIN [ 1,MSM]:Shahid}
QREAD MSMPRC.PNT
QREAD MSMPR2.PNT
EXIT
{exiting at 21:18 16 Mar 1981
$FPMAX=0
$INTMAX=0
$PCDMAX=219}
{PONTY0.DMP[PNT, HE] :14:45 17 Mar 1981 ALIAS [PNT, HE] LOGIN [ 1,MSM]:Shahid}
REDISPLAY
RESUME_MESSAGE("DIMENSION CHECKING FOR ASSIGNMENTS AND VARIABLES ARE NOW BEING DONE.
TO AVOID IT DO A REQUIRE ERROR_MODES <DOUBLE_QUOTE>F<DOUBLE_QUOTE>
");
SAVECOREIMAGE P2
{PONTY0.DMP[PNT, HE] :14:48 17 Mar 1981 ALIAS [PNT, HE] LOGIN [ 1,MSM]:Shahid}
CALIB(RARM)
MOVE GARM TO GPARK
MOVE RARM TO RPARK
NODISPLAY
PJOINT(RARM)
PGRAV(RARM)
MOVE RARM TO RPARK
CALIB(GARM)
MOVE GARM TO GPARK
PJOINT(GARM)
PJOINT(GARM)
PFREE(GARM)
PFREE(GARM)
PFREE(GARM)
PFREE(GARM)
PFREE(GARM)
MOVE GARM TO GPARK
PFREE(GARM)
PGRAV(GARM)
EXIT
{exiting at 14:59 17 Mar 1981
$FPMAX=54
$INTMAX=5
$PCDMAX=33}
{PONTY0.DMP[PNT, HE] :15:00 17 Mar 1981 ALIAS [PNT, HE] LOGIN [ 1,MSM]:Shahid}
NODISPLAY
CALIB(GARM)
{PONTY0.DMP[PNT, HE] :15:10 17 Mar 1981 ALIAS [PNT, HE] LOGIN [ 1,MSM]:Shahid}
NODISPLAY
CALIB(GARM)
PJOINT(GARM)
MOVE GARM TO GPARK
PFREE(GARM)
PFREE(GARM)
PGRAV(GARM)
OPEN GHAND TO 1
OPEN GHAND TO 0
MOVE GARM TO GPARK
MOVE BARM TO BPARK
MOVE BARM TO BPARK+4*XHAT
{%%%%% WARNING ::
MOVE BARM TO BPARK+4*XHAT
Argument 2 must have same dimensions as that of argument 1
Argument 2 has dim␈nsions: DIMENSIONLESS
argument 1 has dimensions: [DISTANCE]↑1
%%%%%%%%%%%%%%%%%%%%%%%}
DRIVE BJT(3) TO 17
MOVE BARM TO BPARK
MOVE BARM TO BPARK WITH DURATION=4
MOVE BARM TO BPARK WITH DURATION=6
{PONTY0.DMP[PNT, HE] :15:17 17 Mar 1981 ALIAS [PNT, HE] LOGIN [ 1,MSM]:Shahid}
MOVE BARM TO BPARK
NODISPLAY
{PONTY0.DMP[PNT, HE] :15:23 17 Mar 1981 ALIAS [PNT, HE] LOGIN [ 1,MSM]:Shahid}
MOVE BARM TO BPARK
MOVE BARM TO BARM
{PONTY0.DMP[PNT, HE] :15:28 17 Mar 1981 ALIAS [PNT, HE] LOGIN [ 1,MSM]:Shahid}
MOVE BARM TO BPARK
NODISPLAY
{PONTY0.DMP[PNT, HE] :15:33 17 Mar 1981 ALIAS [PNT, HE] LOGIN [ 1,MSM]:Shahid}
MOVE BARM TO BPARK
NODISPPLAY; MOVE BARM TO BPARK+3*XHAT*INCHES
{PONTY0.DMP[PNT, HE] :15:38 17 Mar 1981 ALIAS [PNT, HE] LOGIN [ 1,MSM]:Shahid}
MOVE BARM TO BPARK
MOVE BARM TO BPARK+3*XHAT
{%%%%% WARNING ::
MOVE BARM TO BPARK+3*XHAT
Argument 2 must have same dimensions as that of argument 1
Argument 2 has dimensions: DIMENSIONLESS
argument 1 has dimensions: [DISTANCE]↑1
%%%%%%%%%%%%%%%%%%%%%%%}
REDISPLAY
MOVE BARM TO BPARK
RESUME_MESSAGE("VERSION REQUIRES DIMENSION CHECKING");
SAVECOREIMAGE P3
{ continued writing again at 15:40 17 Mar 1981}
MOVE BARM TO BPARK
{PONTY0.DMP[PNT, HE] :15:49 17 Mar 1981 ALIAS [PNT, HE] LOGIN [ 1,MSM]:Shahid}
NODISPLAY
MOVE BARM TO BPARK
MOVE BARM TO BPARK
DDT
DDT
MOVE BARM TO BPARK
MOVE BARM TO BPARK+3*XHAT
{%%%%% WARNING ::
MOVE BARM TO BPARK+3*XHAT
Argument 2 must have same dimensions as that of argument 1
Argument 2 has dimensions: DIMENSIONLESS
argument 1 has dimensions: [DISTANCE]↑1
%%%%%%%%%%%%%%%%%%%%%%%}
MOVE BARM TO BPARK+3*XHAT*INCHES
{PONTY0.DMP[PNT, HE] :16:19 17 Mar 1981 ALIAS [PNT, HE] LOGIN [ 1,MSM]:Shahid}
DDT
MOVE BARM TO BPARK
SAVECOREIMAGE P4
{PONTY0.DMP[PNT, HE] :16:24 17 Mar 1981 ALIAS [PNT, HE] LOGIN [ 1,MSM]:Shahid}
MOVE BARM TO BPARK+3*XHAT*INCHES
CALIB(GARM)
MOVE GARM TO GPARK-3*ZHAT
{PONTY0.DMP[PNT, HE] :16:43 17 Mar 1981 ALIAS [PNT, HE] LOGIN [ 1,MSM]:Shahid}
MOVE BARM TO BPARK
MOVE BARM TO BPARK+3*XHAT*INCHES
MOVE BARM TO BPARK
RESUME_MESSAGE("VERSION DOES DIMENSION CHECKING");
SAVECOREIMAGE P5
{ continued writing again at 16:45 17 Mar 1981}
MOVE BARM TO BPARK
MOVE BARM TO BPARK+5*XHAT
{PONTY0.DMP[PNT, HE] :16:47 17 Mar 1981 ALIAS [PNT, HE] LOGIN [ 1,MSM]:Shahid}
MOVE BARM TO BPARK
CALIB(GARM)
{PONTY0.DMP[PNT, HE] :16:55 17 Mar 1981 ALIAS [PNT, HE] LOGIN [ 1,MSM]:Shahid}
REDISPLAY
SAVECOREIMAGE P6
{PONTY0.DMP[PNT, HE] :16:59 17 Mar 1981 ALIAS [PNT, HE] LOGIN [ 1,MSM]:Shahid}
MOVE BARM TO BPARK
EXIT
{exiting at 17:02 17 Mar 1981
$FPMAX=54
$INTMAX=5
$PCDMAX=33}
{PONTY0.DMP[PNT, HE] :17:05 17 Mar 1981 ALIAS [TMP,MSM] LOGIN [ 1,MSM]:Shahid}
CALIB(GARM)
COBEGIN MOVE BARM TO BPARK VIA BPARK+10*XHAT*INCHES; MOVE GARM TO GPARK VIA GPARK-10*ZHAT*INCHES COEND
COBEGIN MOVE BARM TO BPARK VIA BPARK+10*XHAT*INCHES WITH DURATION=10; MOVE GARM TO GPARK VIA GPARK-10*ZHAT*INCHES WITH DURATION=10 COEND
ODISPLAY
{%%%%% ERROR ::
ODISPLAY
UNDECLARED IDENTIFIER ODISPLAY : requires ← or : here
%%%%%%%%%%%%%%%%%%%%%%%}
ODISPLAY
{%%%%% ERROR ::
ODISPLAY
UNDECLARED IDENTIFIER ODISPLAY : requires ← or : here
%%%%%%%%%%%%%%%%%%%%%%%}
NODISPLAY
DEFINE MMOVE(ARM,DEST,VIADEST);
{%%%%% ERROR ::
DEFINE MMOVE(ARM,DEST,VIADEST)
;
⊂=⊃ is required here
%%%%%%%%%%%%%%%%%%%%%%%}
DEFINE MMOVE(ARM,DEST,VIADEST)=⊂ MOVE ARM TO DEST VIA VIADEST WITH DURATION =10 ⊃;
COBEGIN MMOVE(BARM,BPARK,BPARK+10*XHAT);
{%%%%% WARNING ::
MOVE BARM TO BPARK VIA BPARK+10*XHAT
WITH
DURATION =10
Argument 2 must have same dimensions as that of argument 1
Argument 2 has dimensions: DIMENSIONLESS
argument 1 has dimensions: [DISTANCE]↑1
%%%%%%%%%%%%%%%%%%%%%%%}
<ESCAPE> I termination
COBEGIN MMOVE(BARM,BPARK,BPARK+10*XHAT*INCHES);
MMOVE(YARM,YPARK,YPARK+10*XHAT*INCHES);
MMOVE(GARM,GPARK,GPARK-10*YHAT*INCHES)
{%%%%% ERROR ::
MMOVE(GARM,GPARK,GPARK-10*YHAT*INCHES)
⊂;⊃ or ⊂COEND⊃ is required here
%%%%%%%%%%%%%%%%%%%%%%%}
COEND;
COEND;
{%%%%% ERROR ::
COEND
;
COEND:: is valid only inside a block
%%%%%%%%%%%%%%%%%%%%%%%}
DEFINE MOVE4=⊂COBEGIN
MMOVE(BARM,BPARK,BPARK+10*XHAT*INCHES);
MMOVE(YARM,YPARK,YPARK+10*XHAT*INCHES);
MMOVE(GARM,GPARK,GPARK-10*XHAT*INCHES);
MMOVE(RARM,RPARK,RPARK-10*XHAT*INCHES);
COEND;⊃;
CALIB(RARM)
MOVE4
EDIT MOVE4
MOVE4
EDIT MMOVE
MOVE4
MOVE4
MOVE4
MOVE4
EXIT
{exiting at 17:22 17 Mar 1981
$FPMAX=54
$INTMAX=5
$PCDMAX=169}
{PONTY0.DMP[PNT, HE] :10:14 19 Mar 1981 ALIAS [ 1, JM] LOGIN [ 1, JM]:Jim}
A←BARM
B←BARM
C←BARM
MOVE BARM TO BPARK, A,B,C WITH DURATION = 4*SEC
{%%%%% ERROR ::
MOVE BARM TO BPARK
,
A,B,C WITH DURATION = 4*SEC
Need ; or carriage return here
%%%%%%%%%%%%%%%%%%%%%%%}
MOVE BARM TO BPARK VIA A,B,C WITH DURATION = 4*SEC
MOVE BARM TO BPARK VIA A,B,C WITH DURATION = 4*SEC
MOVE BARM TO BPARK VIA A,B,C WITH DURATION = 10*SEC
MOVE BARM TO BPARK VIA A,B,C WITH DURATION = 7*SEC
SCALAR I; FOR I←1 STEP 1 TO 10 DO MOVE BARM TO BPARK VIA A,B,C WITH DURATION = 7*SEC;
{%%%%% ERROR ::
SCALAR I; FOR I←1 STEP 1
TO
10 DO MOVE BARM TO BPARK VIA A,B,C WITH DURATION = 7*SEC;
⊂UNTIL⊃ is required here
%%%%%%%%%%%%%%%%%%%%%%%}
FOR I←1 STEP 1 UNTIL 10 DO MOVE BARM TO BPARK VIA A,B,C WITH DURATION = 7*SEC;
DEFINE T=⊂FOR I←1 STEP 1 UNTIL 5 DO MOVE BARM TO BPARK VIA A,B,C WITH DURATION = 7*SEC;⊃;
T
BYE
{%%%%% ERROR ::
BYE
UNDECLARED IDENTIFIER BYE : requires ← or : here
%%%%%%%%%%%%%%%%%%%%%%%}
X
{%%%%% ERROR ::
X
UNDECLARED IDENTIFIER X : requires ← or : here
%%%%%%%%%%%%%%%%%%%%%%%}
EXIT
{exiting at 10:39 19 Mar 1981
$FPMAX=72
$INTMAX=5
$PCDMAX=54}
{PONTY0.DMP[PNT, HE] :13:42 19 Mar 1981 ALIAS [TMP,MSM] LOGIN [ 1,MSM]:Shahid}
READ MSMPRC
{%%%%% ERROR ::
MSMPRC is nonexistent
%%%%%%%%%%%%%%%%%%%%%%%}
QREAD MSMPRC.PNT
QREAD MSMPR2.PNT
SAVECOREIMAGE MSM
{5.N .$↑ [$X , *] :18:43 19 Mar 1981 ALIAS [TMP,MSM] LOGIN [ 1,MSM]:Shahid}
OPEN BHAND TO 3
{%%%%% WARNING ::
OPEN BHAND TO 3
Dimensional incompatibility in OPEN/CLOSE statement
Your expression has dimensions: DIMENSIONLESS
Desired expression has dimensions: [DISTANCE]↑1
%%%%%%%%%%%%%%%%%%%%%%%}
OPEN BHAND TO 3 ON FORCE(ZHAT)>34 DO STOP BARM
{%%%%% WARNING ::
OPEN BHAND TO 3
ON
FORCE(ZHAT)>34 DO STOP BARM
Dimensional incompatibility in OPEN/CLOSE statement
Your expression has dimensions: DIMENSIONLESS
Desired expression has dimensions: [DISTANCE]↑1
%%%%%%%%%%%%%%%%%%%%%%%}
MOVE BARM TO BPARK ON FORCE(ZHAT)>34 DO STOP BARM
MOVE BARM TO BPARK WITH FORCE(ZHAT)=34
CLOSE BHAND TO 3
{%%%%% WARNING ::
CLOSE BHAND TO 3
Dimensional incompatibility in OPEN/CLOSE statement
Your expression has dimensions: DIMENSIONLESS
Desired expression has dimensions: [DISTANCE]↑1
%%%%%%%%%%%%%%%%%%%%%%%}
MOVE BARM TO BPARK WITH DURATION=3
MOVE BARM TO BPARK ON DURATION>3 DO STOP BARM
{%%%%% WARNING ::
MOVE BARM TO BPARK ON DURATION>3 DO STOP BARM
Dimensional incompatibility in DURATION condition monitor
Your value has dimensions: DIMENSIONLESS
Desired value has dimensions: [TIME]↑1
%%%%%%%%%%%%%%%%%%%%%%%}
EXIT
{exiting at 18:45 19 Mar 1981
$FPMAX=0
$INTMAX=0
$PCDMAX=50}
{5.N .$↑ [$X , *] :19:47 19 Mar 1981 ALIAS [TMP,MSM] LOGIN [ 1,MSM]:Shahid}
DRIVE BJT(1) TO 90
{%%%%% WARNING ::
DRIVE BJT(1) TO 90
Dimensional incompatibility in DRIVE statement
Your value has dimensions: DIMENSIONLESS
Desired value has dimensions: [ANGLE]↑1
%%%%%%%%%%%%%%%%%%%%%%%}
DRIVE BJT(3) TO 90*DEG
{%%%%% WARNING ::
DRIVE BJT(3) TO 90*DEG
Dimensional incompatibility in DRIVE statement
Your value has dimensions: [ANGLE]↑1
Desired value has dimensions: [DISTANCE]↑1
%%%%%%%%%%%%%%%%%%%%%%%}
OPEN BHAND TO 3
{%%%%% WARNING ::
OPEN BHAND TO 3
Dimensional incompatibility in OPEN/CLOSE statement
Your expression has dimensions: DIMENSIONLESS
Desired expression has dimensions: [DISTANCE]↑1
%%%%%%%%%%%%%%%%%%%%%%%}
MOVE BARM TO BPARK WITH FORCE(ZHAT)=34
{%%%%% WARNING ::
MOVE BARM TO BPARK WITH FORCE(ZHAT)=34
Dimensional incompatibility in FORCE Clause
Your value has dimensions: DIMENSIONLESS
Desired value has dimensions: [FORCE]↑1
%%%%%%%%%%%%%%%%%%%%%%%}
MOVE BARM TO BPARK WITH DURATION=34
{%%%%% WARNING ::
MOVE BARM TO BPARK WITH DURATION=34
Dimensional incompatibility in DURATION clause
Your value has dimensions: DIMENSIONLESS
Desired value has dimensions: [TIME]↑1
%%%%%%%%%%%%%%%%%%%%%%%}
MOVEZ BY 3
{%%%%% ERROR ::
MOVEZ
BY
3
Need identifier here
%%%%%%%%%%%%%%%%%%%%%%%}
MOVEZ GARM BY 3
{%%%%% WARNING ::
MOVEZ GARM BY 3
Dimensional incompatibility in MOVE BY statement
Your value has dimensions: DIMENSIONLESS
Desired value has dimensions: [DISTANCE]↑1
%%%%%%%%%%%%%%%%%%%%%%%}
MOVEY BARM BY 56
{%%%%% WARNING ::
MOVEY BARM BY 56
Dimensional incompatibility in MOVE BY statement
Your value has dimensions: DIMENSIONLESS
Desired value has dimensions: [DISTANCE]↑1
%%%%%%%%%%%%%%%%%%%%%%%}
EXIT
{exiting at 19:49 19 Mar 1981
$FPMAX=0
$INTMAX=0
$PCDMAX=34}
{PONTY0.DMP[PNT, HE] :13:58 22 Mar 1981 ALIAS [ AL,BIS] LOGIN [ 1,BIS]:Barry}
READ TEST09;
FOO;
CALIB(GARM);
MOVE GARM TO GPARK DIRECTLY;
MOVE GARM TO GARM-5*ZHAT*INCHES;
DOWN←GARM;
PROCEDURE BAR; BEGIN MOVE GARM TO GPARK DIRECTLY; MOVE GARM TO DOWN;
END;
BAR;
SCALAR I;
FOR I ← 1 STEP 1 UNTIL 30 DO BAR;
MOVE GARM TO GPARK;
EXIT
{exiting at 14:07 22 Mar 1981
$FPMAX=78
$INTMAX=5
$PCDMAX=339}
{PONTY0.DMP[PNT, HE] :16:02 22 Mar 1981 ALIAS [ 1,JKS] LOGIN [ 1,JKS]:Ken}
A←BARM
MOVE BARM TO A+3*ZHAT,A WITH DURATION = 3
{%%%%% WARNING ::
MOVE BARM TO A+3*ZHAT
,
A WITH DURATION = 3
Argument 2 must have same dimensions as that of argument 1
Argument 2 has dimensions: DIMENSIONLESS
argument 1 has dimensions: [DISTANCE]↑1
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% ERROR ::
MOVE BARM TO A+3*ZHAT
,
A WITH DURATION = 3
Need ; or carriage return here
%%%%%%%%%%%%%%%%%%%%%%%}
MOVE BARM TO A VIA A+3*ZHAT WITH DURATION = 3
{%%%%% WARNING ::
MOVE BARM TO A VIA A+3*ZHAT
WITH
DURATION = 3
Argument 2 must have same dimensions as that of argument 1
Argument 2 has dimensions: DIMENSIONLESS
argument 1 has dimensions: [DISTANCE]↑1
%%%%%%%%%%%%%%%%%%%%%%%}
MOVE BARM TO A VIA A+3*ZHAT WITH DURATION = 3
{%%%%% WARNING ::
MOVE BARM TO A VIA A+3*ZHAT
WITH
DURATION = 3
Argument 2 must have same dimensions as that of argument 1
Argument 2 has dimensions: DIMENSIONLESS
argument 1 has dimensions: [DISTANCE]↑1
%%%%%%%%%%%%%%%%%%%%%%%}
EDIT A
{%%%%% WARNING ::
FRAME(ROT(ZHAT,-106.6*DEG)*ROT(YHAT,180.0*DEG)*ROT(ZHAT,-109.1*DEG),(46.02,56.91,4.26))
Dimensions of left hand and right hand sides are incompatible
LHS has dimensions: [DISTANCE]↑1
RHS has dimensions: DIMENSIONLESS
%%%%%%%%%%%%%%%%%%%%%%%}
EDIT A
{%%%%% WARNING ::
FRAME(ROT(ZHAT,2.5*DEG)*ROT(YHAT,180.0*DEG),(46.02,56.91,4.26))
Dimensions of left hand and right hand sides are incompatible
LHS has dimensions: [DISTANCE]↑1
RHS has dimensions: DIMENSIONLESS
%%%%%%%%%%%%%%%%%%%%%%%}
MOVE BARM TO A
MOVE BARM TO A EXACTLY
{%%%%% ERROR ::
MOVE BARM TO A
EXACTLY
Need ; or carriage return here
%%%%%%%%%%%%%%%%%%%%%%%}
MOVE BARM TO A VIA A+4*ZHAT,A+4*ZHAT-8*YHAT,A+4*ZHAT EXACTLY WITH DURATION = 5
{%%%%% WARNING ::
MOVE BARM TO A VIA A+4*ZHAT
,
A+4*ZHAT-8*YHAT,A+4*ZHAT EXACTLY WITH DURATION = 5
Argument 2 must have same dimensions as that of argument 1
Argument 2 has dimensions: DIMENSIONLESS
argument 1 has dimensions: [DISTANCE]↑1
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% WARNING ::
MOVE BARM TO A VIA A+4*ZHAT,A+4*ZHAT
-
8*YHAT,A+4*ZHAT EXACTLY WITH DURATION = 5
Argument 2 must have same dimensions as that of argument 1
Argument 2 has dimensions: DIMENSIONLESS
argument 1 has dimensions: [DISTANCE]↑1
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% WARNING ::
MOVE BARM TO A VIA A+4*ZHAT,A+4*ZHAT-8*YHAT
,
A+4*ZHAT EXACTLY WITH DURATION = 5
Argument 2 must have same dimensions as that of argument 1
Argument 2 has dimensions: DIMENSIONLESS
argument 1 has dimensions: [DISTANCE]↑1
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% WARNING ::
MOVE BARM TO A VIA A+4*ZHAT,A+4*ZHAT-8*YHAT,A+4*ZHAT
EXACTLY
WITH DURATION = 5
Argument 2 must have same dimensions as that of argument 1
Argument 2 has dimensions: DIMENSIONLESS
argument 1 has dimensions: [DISTANCE]↑1
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% ERROR ::
MOVE BARM TO A VIA A+4*ZHAT,A+4*ZHAT-8*YHAT,A+4*ZHAT
EXACTLY
WITH DURATION = 5
Need ; or carriage return here
%%%%%%%%%%%%%%%%%%%%%%%}
WRITE A INTO SPR.DAT
EXIT
{exiting at 16:07 22 Mar 1981
$FPMAX=60
$INTMAX=5
$PCDMAX=62}
{PONTY0.DMP[PNT, HE] :14:02 23 Mar 1981 ALIAS [PNT, HE] LOGIN [ 1,MSM]:Shahid}
RESUME_MESSAGE("THIS VERSION DOES DIMENSION CHECKING");
SAVECOREIMAGE P6
{PONTY0.DMP[PNT, HE] :14:05 23 Mar 1981 ALIAS [PNT, HE] LOGIN [ 1,MSM]:Shahid}
OPEN BHAND TO 3.0*INCHES
MOVE BARM TO BPARK
PROCEDURE BMOVE; MOVE BARM TO BARM-YHAT*INCHES;
SCALAR I;
FOR I←1 STEP 1 UNTIL 10 DO BMOVE
FOR I←1 STEP 1 UNTIL 10 DO BMOVE
MOVE BARMT TO BPARK
{%%%%% ERROR ::
MOVE
BARMT
TO BPARK
Need identifier here
%%%%%%%%%%%%%%%%%%%%%%%}
MOVE BARM TO BPARK
FOR I←1 STEP 1 UNTIL 20 DO BMOVE
MOVE BARM TO BPARK
CALIB(GARM)
PJOINT(GARM)
CLOSE GHAND TO 0
{%%%%% WARNING ::
CLOSE GHAND TO 0
Dimensional incompatibility in OPEN/CLOSE statement
Your expression has dimensions: DIMENSIONLESS
Desired expression has dimensions: [DISTANCE]↑1
%%%%%%%%%%%%%%%%%%%%%%%}
PJOINT(GARM)
OPEN GHAND TO 1*INCH
CLOSE GHAND TO 1*INCH
CLOSE GHAND TO 0*INCH
MOVE GARM TO GPARK
EXIT
{exiting at 14:20 23 Mar 1981
$FPMAX=0
$INTMAX=5
$PCDMAX=38}
{PONTY0.DMP[PNT, HE] :14:44 23 Mar 1981 ALIAS [ 1,MSM] LOGIN [ 1,MSM]:Shahid}
SCALAR ARRAY FORCES[1:6]
SETBASE
WRIST(FORCES);
{%%%%% ERROR ::
WRIST(FORCES
)
;
Need [ after array name
%%%%%%%%%%%%%%%%%%%%%%%}
PRINT(FORCES[3]);
PROCEDURE PFORCES; BEGIN WRIST(FORCES); PRINT(FORCES[3]); END;
{%%%%% ERROR ::
PROCEDURE PFORCES; BEGIN WRIST(FORCES
)
; PRINT(FORCES[3]); END;
Need [ after array name
%%%%%%%%%%%%%%%%%%%%%%%}
WRIST(FORCES);
{%%%%% ERROR ::
WRIST(FORCES
)
;
Need [ after array name
%%%%%%%%%%%%%%%%%%%%%%%}
WRIST(FORCES[1:6]);
{%%%%% ERROR ::
WRIST(FORCES[1
:
6]);
Need ] for bounds of array
%%%%%%%%%%%%%%%%%%%%%%%}
WRIST(FORCES[1]);
{%%%%% ERROR ::
WRIST(FORCES[1]
)
;
Id type found does not agree with expected type in argument for WRIST
%%%%%%%%%%%%%%%%%%%%%%%}
VECTOR FR,TR
WRIST(FR,TR)
<ESCAPE> I termination
SETSTATUS(NOELF);
SETSTATUS(PPCODE); WRIST(FR,TR)
{PONTY0.DMP[PNT, HE] :15:09 23 Mar 1981 ALIAS [ 1,MSM] LOGIN [ 1,MSM]:Shahid}
REDISPLAY
SAVECOREIMAGE P7
{ continued writing again at 15:10 23 Mar 1981}
VECTOR G,K
NODISPLAY
SETBASE
{PONTY0.DMP[PNT, HE] :15:11 23 Mar 1981 ALIAS [ 1,MSM] LOGIN [ 1,MSM]:Shahid}
NODISPLAY
VECTOR V1,V2
SETBASE
{PONTY0.DMP[PNT, HE] :17:48 23 Mar 1981 ALIAS [ 1,MSM] LOGIN [ 1,MSM]:Shahid}
BLOCK←BARM
WRITE BLOCK INTO GRAB.DAT[TMP,MSM]
SHOW FRAMES
{%%%%% ERROR ::
SHOW
FRAMES
SHOW: Need a macro, procedure or variable name after SHOW
%%%%%%%%%%%%%%%%%%%%%%%}
DISPLAY FRAMES
WRITE BLOCK INTO GRAB.DAT[TMP,MSM]
B1←BARM
WRITE B1 INTO GRAB.DAT[TMP,MSM]
EXIT
{exiting at 17:56 23 Mar 1981
$FPMAX=66
$INTMAX=5
$PCDMAX=39}
{PONTY0.DMP[PNT, HE] :19:00 23 Mar 1981 ALIAS [ 1,MSM] LOGIN [ 1,MSM]:Shahid}
DRIVE BJT(1) TO 90
{%%%%% WARNING ::
DRIVE BJT(1) TO 90
Dimensional incompatibility in DRIVE statement
Your value has dimensions: DIMENSIONLESS
Desired value has dimensions: [ANGLE]↑1
%%%%%%%%%%%%%%%%%%%%%%%}
MOVE BARM TO BPARK
DRIVE BJT(1) TO 90*DEG
DRIVE BJT(1) TO 0*DEG
DRIVE BJT(1) TO 180*DEG
{PONTY0.DMP[PNT, HE] :16:01 25 Mar 1981 ALIAS [TMP,MSM] LOGIN [ 1,MSM]:Shahid}
PRINT(SROT)
NODISPLAY
LOCATE_ZVERT(FOO)
SHOW FOO
MOVE BARM TO FOO
LOCATE_ZVERT(FOO2)
MOVE BARM TO FOO1
{%%%%% ERROR ::
MOVE BARM TO
FOO1
UNEXPECTED TOKEN FOUND ⊂FOO1⊃
%%%%%%%%%%%%%%%%%%%%%%%}
MOVE BARM TO FOO
MOVE BARM TO FOO2
NODISPLAY
MOVE BARM VIA FOO+3*ZHAT*INCHES,FOO2+3*ZHAT*INCHES TO FOO2
CENTER BARM
MOVE BARM TO BARM+3*ZHAT
{%%%%% WARNING ::
MOVE BARM TO BARM+3*ZHAT
Argument 2 must have same dimensions as that of argument 1
Argument 2 has dimensions: DIMENSIONLESS
argument 1 has dimensions: [DISTANCE]↑1
%%%%%%%%%%%%%%%%%%%%%%%}
GET(FOO2,1)
{%%%%% WARNING ::
GET(FOO2,1
)
incompatible dimensions in substituting parameters
formal parameter WIDTH has dimensions: [DISTANCE]↑1
current parameter has dimensions: DIMENSIONLESS
%%%%%%%%%%%%%%%%%%%%%%%}
GET(FOO2,1)
{%%%%% WARNING ::
GET(FOO2,1
)
incompatible dimensions in substituting parameters
formal parameter WIDTH has dimensions: [DISTANCE]↑1
current parameter has dimensions: DIMENSIONLESS
%%%%%%%%%%%%%%%%%%%%%%%}
SPEED_FACTOR←4
{PONTY0.DMP[PNT, HE] :14:47 27 Mar 1981 ALIAS [PNT, HE] LOGIN [ 1, RV]:Rick}
NODISPLAY
READ SPRINK
{%%%%% ERROR ::
SPRINK is nonexistent
%%%%%%%%%%%%%%%%%%%%%%%}
READ SPRINK[PUM,HE
{%%%%% ERROR ::
SPRINK[PUM,HE] is nonexistent
%%%%%%%%%%%%%%%%%%%%%%%}
{PONTY0.DMP[PNT, HE] :14:59 27 Mar 1981 ALIAS [PUM, HE] LOGIN [ 1, RV]:Rick}
READ SPRINK.AL
{%%%%% ERROR ::
SPRINK.AL[PUM,HE] PAGE 2 LINE 4
PROCEDURE
CENTER_BARM;
PROCEDURE:: is a top level command only and cannot be used in compound statements
%%%%%%%%%%%%%%%%%%%%%%%}
<ESCAPE> I termination
READ SPRDEF
<ESCAPE> I termination
READ SPRDEF.AL
{%%%%% ERROR ::
SPRDEF.AL[PUM,HE] PAGE 2 LINE 1
FRAME
PUMA_STEM_HOLD
;
undeclared identifier required
%%%%%%%%%%%%%%%%%%%%%%%}
MOVE GARM TO PUMA_STEM_HOLD WITH DURATION=4 DIRECTLY;
{%%%%% WARNING ::
WITH
APPROACH = NILDEPROACH WITH DEPARTURE = NILDEPROACH
Dimensional incompatibility in DURATION clause
Your value has dimensions: DIMENSIONLESS
Desired value has dimensions: [TIME]↑1
%%%%%%%%%%%%%%%%%%%%%%%}
CALIB(GARM)
MOVE GARM TO PUMA_STEM_HOLD WITH DURATION=4*SEC DIRECTLY;
MOVE GARM TO STEM9PICKUP + 3*ZHAT*INCH WITH DURATION=3*SEC DIRECTLY;
{%%%%% ERROR ::
MOVE GARM TO
STEM9PICKUP
+ 3*ZHAT*INCH WITH DURATION=3*SEC DIRECTLY;
UNEXPECTED TOKEN FOUND ⊂STEM9PICKUP⊃
%%%%%%%%%%%%%%%%%%%%%%%}
READ SPRDEF
{%%%%% ERROR ::
SPRDEF.[PUM,HE] PAGE 1 LINE 1
FRAME
STEM_BACKOFF
;
undeclared identifier required
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% ERROR ::
SPRDEF.[PUM,HE] PAGE 1 LINE 4
FRAME
PUMA_STEM_HOLD
;
undeclared identifier required
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% ERROR ::
SPRDEF.[PUM,HE] PAGE 1 LINE 7
FRAME
DRIVER_LOC
;
undeclared identifier required
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% ERROR ::
SPRDEF.[PUM,HE] PAGE 1 LINE 10
FRAME
STEM_LOC
;
undeclared identifier required
%%%%%%%%%%%%%%%%%%%%%%%}
MOVE GARM TO STEM_PICKUP+3*ZHAT*INCH DIRECTLY WITH DURATIO=3*SEC
{%%%%% ERROR ::
MOVE GARM TO
STEM_PICKUP
+3*ZHAT*INCH DIRECTLY WITH DURATIO=3*SEC
UNEXPECTED TOKEN FOUND ⊂STEM_PICKUP⊃
%%%%%%%%%%%%%%%%%%%%%%%}
MOVE GARM TO STEM_PICKUP+3*ZHAT*INCH DIRECTLY WITH DURATION=3*SEC
{%%%%% ERROR ::
MOVE GARM TO
STEM_PICKUP
+3*ZHAT*INCH DIRECTLY WITH DURATION=3*SEC
UNEXPECTED TOKEN FOUND ⊂STEM_PICKUP⊃
%%%%%%%%%%%%%%%%%%%%%%%}
DISPLAY FRAMES
MOVE GARM TO STEM_LOC+3*ZHAT*INCH WITH DURATION=3*SEC DIRECTLY
MOVE GARM TO STEM_LOC WITH DURATION=3*SEC DIRECTLY
CLOSE GHAND
{%%%%% ERROR ::
CLOSE GHAND
⊂TO⊃ or ⊂BY⊃ is required here
%%%%%%%%%%%%%%%%%%%%%%%}
CLOSE GHAND
{%%%%% ERROR ::
CLOSE GHAND
⊂TO⊃ or ⊂BY⊃ is required here
%%%%%%%%%%%%%%%%%%%%%%%}
CLOSE GHAND TO 0
{%%%%% WARNING ::
CLOSE GHAND TO 0
Dimensional incompatibility in OPEN/CLOSE statement
Your expression has dimensions: DIMENSIONLESS
Desired expression has dimensions: [DISTANCE]↑1
%%%%%%%%%%%%%%%%%%%%%%%}
MOVE GARM TO ⊗+5*ZHAT*INCH DIRECTLY
MOVE GARM TO PUMA_STEM_HOLD WITH DURATION=4*SEC DIRECTLY;
STEM_PICKUP ← BARM
WRITE STEM_PICKUP INTO SPRDEF.AL
Q
{%%%%% ERROR ::
Q
UNDECLARED IDENTIFIER Q : requires ← or : here
%%%%%%%%%%%%%%%%%%%%%%%}
EXIT
{exiting at 15:13 27 Mar 1981
$FPMAX=102
$INTMAX=5
$PCDMAX=57}
{PONTY0.DMP[PNT, HE] :15:46 27 Mar 1981 ALIAS [PUM, HE] LOGIN [ 1, RV]:Rick}
CALIB(GARM)
MOVE GARM TO PUMA_STEM_HOLD DIRECTLY WITH DURATION=3*SEC
{%%%%% ERROR ::
MOVE GARM TO
PUMA_STEM_HOLD
DIRECTLY WITH DURATION=3*SEC
UNEXPECTED TOKEN FOUND ⊂PUMA_STEM_HOLD⊃
%%%%%%%%%%%%%%%%%%%%%%%}
READ SPRDEF.AL
MOVE GARM TO PUMA_STEM_HOLD DIRECTLY
MOVE BARM TO STEM_PICKUP DIRECTLY
READ SPRDEF
{%%%%% ERROR ::
SPRDEF.[PUM,HE] PAGE 1 LINE 4
FRAME
PUMA_STEM_HOLD
;
undeclared identifier required
%%%%%%%%%%%%%%%%%%%%%%%}
<ESCAPE> I termination
READ SPRDEF.AL
{%%%%% ERROR ::
SPRDEF.AL[PUM,HE] PAGE 2 LINE 1
FRAME
PUMA_STEM_HOLD
;
undeclared identifier required
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% ERROR ::
SPRDEF.AL[PUM,HE] PAGE 2 LINE 4
FRAME
STEM_PICKUP
;
undeclared identifier required
%%%%%%%%%%%%%%%%%%%%%%%}
MOVE GARM TO STEM_LOC+3*ZHAT*INCH
OPEN GHAND TO 1*INCH
MOVE GARM TO STEM_LOC DIRECTLY WITH DURATION=3*SEC
MOVE GARM TO ⊗+5*ZHAT*INCH DIRECTLY
MOVE GAM TO STEM_LOC DIRECTLY WITH DURATION=3*SEC
{%%%%% ERROR ::
MOVE
GAM
TO STEM_LOC DIRECTLY WITH DURATION=3*SEC
Need identifier here
%%%%%%%%%%%%%%%%%%%%%%%}
MOVE GARM TO STEM_LOC DIRECTLY WITH DURATION=3*SEC
CLOSE GHAND TO 0*INCH
MOVE GARM TO ⊗+6*ZHAT*INCH DIRECTLY
MOVE GARM TO PUMA_STEM_HOLD DIRECTLY WITH DURATION=3*SC
{%%%%% ERROR ::
MOVE GARM TO PUMA_STEM_HOLD DIRECTLY WITH DURATION=3*
SC
UNEXPECTED TOKEN FOUND ⊂SC⊃
%%%%%%%%%%%%%%%%%%%%%%%}
MOVE GARM TO PUMA_STEM_HOLD DIRECTLY WITH DURATION=3*SEC
STEM_PICKUP ← BARM
WRITE STEM_PICKUP INTO SPRDEF.AL
EXIT
{exiting at 15:57 27 Mar 1981
$FPMAX=0
$INTMAX=5
$PCDMAX=57}
{PONTY0.DMP[PNT, HE] :15:59 27 Mar 1981 ALIAS [PUM, HE] LOGIN [ 1, RV]:Rick}
PRINT(BARM)
STEM_PICKUP ← BARM
DISPLAY FRAMES
WRITE STEM_PICKUP INTO SPRDEF.AL
EXIT
{exiting at 16:01 27 Mar 1981
$FPMAX=60
$INTMAX=5
$PCDMAX=36}
{PONTY0.DMP[PNT, HE] :13:50 31 Mar 1981 ALIAS [ 1,MSM] LOGIN [ 1,MSM]:Shahid}
MOVE BARM TO BPARK
B1←BARM
B2←BARM
MOVE BARM VIA B1,B2,BPARK,B1,B2 TO BPARK
MOVE BARM VIA B1,B2,BPARK,B1,B2 TO BPARK
{PONTY0.DMP[PNT, HE] :15:01 31 Mar 1981 ALIAS [ 1,MSM] LOGIN [ 1,MSM]:Shahid}
SETBASE
VECTOR F,T
SCALAR I
FOR I←1 STEP 1 UNTIL 20 DO BEGIN PAUSE 5*SECONDS; WRIST(F,T); PRINT(F); END;
{PONTY0.DMP[PNT, HE] :20:01 31 Mar 1981 ALIAS [ AL,BIS] LOGIN [ 1,BIS]:Barry}
READ TEST09;
{%%%%% WARNING ::
TEST09.[AL,BIS] PAGE 1 LINE 16
WITH DURATION = 1
;
Dimensional incompatibility in DURATION clause
Your value has dimensions: DIMENSIONLESS
Desired value has dimensions: [TIME]↑1
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% WARNING ::
TEST09.[AL,BIS] PAGE 1 LINE 18
MOVE BARM TO TEMP DIRECTLY WITH DURATION = 2.0
;
Dimensional incompatibility in DURATION clause
Your value has dimensions: DIMENSIONLESS
Desired value has dimensions: [TIME]↑1
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% WARNING ::
TEST09.[AL,BIS] PAGE 1 LINE 19
MOVE BARM TO GET + 3.0*ZHAT*INCHES DIRECTLY WITH DURATION = 3.0
;
Dimensional incompatibility in DURATION clause
Your value has dimensions: DIMENSIONLESS
Desired value has dimensions: [TIME]↑1
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% WARNING ::
TEST09.[AL,BIS] PAGE 1 LINE 20
MOVE BARM TO GET DIRECTLY WITH DURATION = 3.0
;
Dimensional incompatibility in DURATION clause
Your value has dimensions: DIMENSIONLESS
Desired value has dimensions: [TIME]↑1
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% WARNING ::
TEST09.[AL,BIS] PAGE 1 LINE 22
MOVE BARM TO GET + 3.0*ZHAT*INCHES DIRECTLY WITH DURATION = 3.0
;
Dimensional incompatibility in DURATION clause
Your value has dimensions: DIMENSIONLESS
Desired value has dimensions: [TIME]↑1
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% WARNING ::
TEST09.[AL,BIS] PAGE 1 LINE 23
MOVE BARM TO PUT + 3.0*ZHAT*INCHES DIRECTLY WITH DURATION = 3.0
;
Dimensional incompatibility in DURATION clause
Your value has dimensions: DIMENSIONLESS
Desired value has dimensions: [TIME]↑1
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% WARNING ::
TEST09.[AL,BIS] PAGE 1 LINE 25
ON
FORCE(ZHAT)≥15 DO STOP BARM;
Dimensional incompatibility in DURATION clause
Your value has dimensions: DIMENSIONLESS
Desired value has dimensions: [TIME]↑1
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% WARNING ::
TEST09.[AL,BIS] PAGE 1 LINE 25
ON FORCE(ZHAT)≥15
DO
STOP BARM;
Dimensional incompatibility in FORCE condition monitor
Desired value has dimensions: [FORCE]↑1
Your value has dimensions: DIMENSIONLESS
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% WARNING ::
TEST09.[AL,BIS] PAGE 1 LINE 27
MOVE BARM TO PUT + 3.0*ZHAT*INCHES DIRECTLY WITH DURATION = 3.0
;
Dimensional incompatibility in DURATION clause
Your value has dimensions: DIMENSIONLESS
Desired value has dimensions: [TIME]↑1
%%%%%%%%%%%%%%%%%%%%%%%}
FOO
QREAD TEST10;
{%%%%% WARNING ::
TEST10.[AL,BIS] PAGE 1 LINE 5
MOVE BARM TO ORIG DIRECTLY WITH DURATION = 3
;
Dimensional incompatibility in DURATION clause
Your value has dimensions: DIMENSIONLESS
Desired value has dimensions: [TIME]↑1
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% WARNING ::
TEST10.[AL,BIS] PAGE 1 LINE 7
MOVE BARM TO ORIG+3*ZHAT*INCHES DIRECTLY WITH DURATION = 3
;
Dimensional incompatibility in DURATION clause
Your value has dimensions: DIMENSIONLESS
Desired value has dimensions: [TIME]↑1
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% WARNING ::
TEST10.[AL,BIS] PAGE 1 LINE 8
MOVE BARM TO DEST+3*ZHAT*INCHES DIRECTLY WITH DURATION = 3
;
Dimensional incompatibility in DURATION clause
Your value has dimensions: DIMENSIONLESS
Desired value has dimensions: [TIME]↑1
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% WARNING ::
TEST10.[AL,BIS] PAGE 1 LINE 10
ON
FORCE(ZHAT)≥15 DO STOP BARM;
Dimensional incompatibility in DURATION clause
Your value has dimensions: DIMENSIONLESS
Desired value has dimensions: [TIME]↑1
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% WARNING ::
TEST10.[AL,BIS] PAGE 1 LINE 10
ON FORCE(ZHAT)≥15
DO
STOP BARM;
Dimensional incompatibility in FORCE condition monitor
Desired value has dimensions: [FORCE]↑1
Your value has dimensions: DIMENSIONLESS
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% WARNING ::
TEST10.[AL,BIS] PAGE 1 LINE 12
MOVE BARM TO DEST+3*ZHAT*INCHES DIRECTLY WITH DURATION = 3
;
Dimensional incompatibility in DURATION clause
Your value has dimensions: DIMENSIONLESS
Desired value has dimensions: [TIME]↑1
%%%%%%%%%%%%%%%%%%%%%%%}
TRANSFER(PUT,GET);
TRANSFER(GET,PUT);
TRANSFER(PUT,GET);
TRANSFER(GET,PUT);TRANSFER(PUT,GET);
FOO;
I←5;
TYPE I;
{%%%%% ERROR ::
TYPE
I
;
UNDECLARED IDENTIFIER TYPE : requires ← or : here
%%%%%%%%%%%%%%%%%%%%%%%}
PRINT I;
{%%%%% ERROR ::
PRINT
I
;
⊂(⊃ is required here
%%%%%%%%%%%%%%%%%%%%%%%}
PRINT(I);
TRANSFER(PUT,GET);TRANSFER(GET,PUT);
MOVE BARM TO BPARK DIRECTLY WITH DURATION=5;
{%%%%% WARNING ::
MOVE BARM TO BPARK DIRECTLY WITH DURATION=5
;
Dimensional incompatibility in DURATION clause
Your value has dimensions: DIMENSIONLESS
Desired value has dimensions: [TIME]↑1
%%%%%%%%%%%%%%%%%%%%%%%}
EXIT;
{exiting at 20:13 31 Mar 1981
$FPMAX=0
$INTMAX=5
$PCDMAX=339}
{PONTY0.DMP[PNT, HE] :11:21 1 Apr 1981 ALIAS [PUM, HE] LOGIN [ 1, RV]:Rick}
CALIB(GARM)
READ SPRDEF
MOVE GARM TO STEM_LOC DIRECTLY WITH DURATION=4*SEC
OPEN GHAND TO 1*INCH
MOVE GHAND TO ⊗+5*ZHAT*INCH WITH DURATION=4*SEC
{%%%%% ERROR ::
MOVE GHAND
TO
⊗+5*ZHAT*INCH WITH DURATION=4*SEC
Id type found does not agree with expected type in to follow MOVE command
%%%%%%%%%%%%%%%%%%%%%%%}
MOVE GARM TO ⊗+5*ZHAT*INCH WITH DURATION=4*SEC
DISPLAY FRAMES
CLOSE GHAND TO 0*INCH
EXT
{%%%%% ERROR ::
EXT
UNDECLARED IDENTIFIER EXT : requires ← or : here
%%%%%%%%%%%%%%%%%%%%%%%}
EXIT
{exiting at 11:26 1 Apr 1981
$FPMAX=96
$INTMAX=5
$PCDMAX=57}
{PONTY0.DMP[PNT, HE] :13:56 1 Apr 1981 ALIAS [PUM, HE] LOGIN [ 1, RV]:Rick}
READ INSERT
{%%%%% ERROR ::
INSERT is nonexistent
%%%%%%%%%%%%%%%%%%%%%%%}
READ INSERT.AL
{%%%%% WARNING ::
INSERT.AL[PUM,HE] PAGE 2 LINE 4
CLOSE BHAND TO 0
ON
ERROR = EXCESSIVE_FORCE DO STOP BHAND;
Dimensional incompatibility in OPEN/CLOSE statement
Your expression has dimensions: DIMENSIONLESS
Desired expression has dimensions: [DISTANCE]↑1
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% ERROR ::
INSERT.AL[PUM,HE] PAGE 2 LINE 4
CLOSE BHAND TO 0 ON ERROR = EXCESSIVE_FORCE DO STOP BHAND
;
Id type found does not agree with expected type in STOP command
%%%%%%%%%%%%%%%%%%%%%%%}
<ESCAPE> I termination
READ INSERT.AL
{%%%%% WARNING ::
INSERT.AL[PUM,HE] PAGE 2 LINE 4
CLOSE BHAND TO 0
ON
ERROR = EXCESSIVE_FORCE DO STOP BHAND;
Dimensional incompatibility in OPEN/CLOSE statement
Your expression has dimensions: DIMENSIONLESS
Desired expression has dimensions: [DISTANCE]↑1
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% ERROR ::
INSERT.AL[PUM,HE] PAGE 2 LINE 4
CLOSE BHAND TO 0 ON ERROR = EXCESSIVE_FORCE DO STOP BHAND
;
Id type found does not agree with expected type in STOP command
%%%%%%%%%%%%%%%%%%%%%%%}
{PONTY0.DMP[PNT, HE] :13:59 1 Apr 1981 ALIAS [PUM, HE] LOGIN [ 1, RV]:Rick}
READ INSERT
{%%%%% ERROR ::
INSERT is nonexistent
%%%%%%%%%%%%%%%%%%%%%%%}
READ INSERT.AL
{%%%%% ERROR ::
INSERT.AL[PUM,HE] PAGE 3 LINE 5
FRAME
CLEAR_DRIVER;
Need ; or carriage return here
%%%%%%%%%%%%%%%%%%%%%%%}
{PONTY0.DMP[PNT, HE] :14:18 1 Apr 1981 ALIAS [PUM, HE] LOGIN [ 1, RV]:Rick}
READ INSERT
{%%%%% ERROR ::
INSERT is nonexistent
%%%%%%%%%%%%%%%%%%%%%%%}
READ INSERT.AL
{%%%%% ERROR ::
INSERT.AL[PUM,HE] PAGE 2 LINE 9
FRAME
CLEAR_DRIVER;
Need ; or carriage return here
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% ERROR ::
INSERT.AL[PUM,HE] PAGE 3 LINE 4
BEGIN
"
TRY"
ERROR: Can't begin statement with "
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% ERROR ::
INSERT.AL[PUM,HE] PAGE 4 LINE 4
BEGIN
"
ASSEMBLE_BODY"
ERROR: Can't begin statement with "
%%%%%%%%%%%%%%%%%%%%%%%}
TRYIT
{%%%%% ERROR ::
ASSEMBLE_BODY
;
UNDECLARED IDENTIFIER ASSEMBLE_BODY : requires ← or : here
%%%%%%%%%%%%%%%%%%%%%%%}
EXIT
{exiting at 14:26 1 Apr 1981
$FPMAX=0
$INTMAX=5
$PCDMAX=57}
{PONTY0.DMP[PNT, HE] :15:02 1 Apr 1981 ALIAS [PUM, HE] LOGIN [ 1, RV]:Rick}
READ SPRDEF
<ESCAPE> I termination
READ INSERT.PNT
{%%%%% ERROR ::
INSERT.PNT[PUM,HE] PAGE 2 LINE 9
FRAME
CLEAR_DRIVER;
Need ; or carriage return here
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% ERROR ::
INSERT.PNT[PUM,HE] PAGE 2 LINE 13
FRAME
STEM_TOUCH
;
undeclared identifier required
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% ERROR ::
INSERT.PNT[PUM,HE] PAGE 2 LINE 17
FRAME
STEM_FINAL
;
undeclared identifier required
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% ERROR ::
INSERT.PNT[PUM,HE] PAGE 2 LINE 21
FRAME
STEM_PICKUP
;
undeclared identifier required
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% ERROR ::
INSERT.PNT[PUM,HE] PAGE 4 LINE 1
DEFINE
ASSEMBLE_BODY = ⊂
Need ; or carriage return here
%%%%%%%%%%%%%%%%%%%%%%%}
<ESCAPE> I termination
EXIT
{exiting at 15:05 1 Apr 1981
$FPMAX=0
$INTMAX=5
$PCDMAX=64}
{PONTY0.DMP[PNT, HE] :15:06 1 Apr 1981 ALIAS [PUM, HE] LOGIN [ 1, RV]:Rick}
READ INSERT.PNT
{%%%%% ERROR ::
INSERT.PNT[PUM,HE] PAGE 2 LINE 9
FRAME
CLEAR_DRIVER;
Need ; or carriage return here
%%%%%%%%%%%%%%%%%%%%%%%}
SHOW MACRO
{%%%%% ERROR ::
SHOW
MACRO
SHOW: Need a macro, procedure or variable name after SHOW
%%%%%%%%%%%%%%%%%%%%%%%}
DISPLAY MACROS
<ESCAPE> I termination
EXIT
{exiting at 15:08 1 Apr 1981
$FPMAX=0
$INTMAX=5
$PCDMAX=67}
{PONTY0.DMP[PNT, HE] :15:09 1 Apr 1981 ALIAS [PUM, HE] LOGIN [ 1, RV]:Rick}
READ INSRT.PNT
{%%%%% ERROR ::
INSRT.PNT is nonexistent
%%%%%%%%%%%%%%%%%%%%%%%}
READ INSERT.PNT
DISPLAY TRYIT
{%%%%% ERROR ::
DISPLAY
TRYIT
No such data type: TRYIT
%%%%%%%%%%%%%%%%%%%%%%%}
SHOW TRYIT
{%%%%% ERROR ::
error in $EVLARR
%%%%%%%%%%%%%%%%%%%%%%%}
TRY_INSERTION
{%%%%% ERROR ::
MOVE BARM TO
LOC
UNEXPECTED TOKEN FOUND ⊂LOC⊃
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% ERROR ::
WITH
APPROACH
= NILDEPROACH WITH DEPARTURE = NILDEPROACH
UNDECLARED IDENTIFIER WITH : requires ← or : here
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% ERROR ::
VIA
LOC
*TRANS(NILROT,YHAT+.25*XHAT)
UNDECLARED IDENTIFIER VIA : requires ← or : here
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% ERROR ::
VIA
LOC
UNDECLARED IDENTIFIER VIA : requires ← or : here
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% ERROR ::
VIA
LOC
*TRANS(NILROT,-YHAT-.25*XHAT)
UNDECLARED IDENTIFIER VIA : requires ← or : here
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% ERROR ::
VIA
LOC
*TRANS(ROT(ZHAT,20),NILVECT)
UNDECLARED IDENTIFIER VIA : requires ← or : here
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% ERROR ::
VIA
LOC
UNDECLARED IDENTIFIER VIA : requires ← or : here
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% ERROR ::
VIA
LOC
*TRANS(ROT(ZHAT,-20),NILVECT)
UNDECLARED IDENTIFIER VIA : requires ← or : here
%%%%%%%%%%%%%%%%%%%%%%%}
<ESCAPE> I termination
{%%%%% ERROR ::
LOC
error in $EVLARR
%%%%%%%%%%%%%%%%%%%%%%%}
EXIT
{exiting at 15:15 1 Apr 1981
$FPMAX=6
$INTMAX=5
$PCDMAX=57}
{PONTY0.DMP[PNT, HE] :15:19 1 Apr 1981 ALIAS [PUM, HE] LOGIN [ 1, RV]:Rick}
READ INSERT.PNT
EDIT TRYIT
ENDIT;⊃;
TRYIT
{%%%%% ERROR ::
ON |FORCE(ZHAT)|≥ 5*
OZ
DO STOP BARM;
UNEXPECTED TOKEN FOUND ⊂OZ⊃
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% ERROR ::
PRINT
("TRY...");
⊂UNTIL⊃ is required here
%%%%%%%%%%%%%%%%%%%%%%%}
{PONTY0.DMP[PNT, HE] :15:28 1 Apr 1981 ALIAS [PUM, HE] LOGIN [ 1, RV]:Rick}
READ INSERT.PNT
<ESCAPE> I termination
QREAD INSERT.PNT
{%%%%% ERROR ::
INSERT.PNT[PUM,HE] PAGE 2 LINE 3
PROCEDURE
CENTER_BARM
;
Need undeclared identifier for procedure declaration
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% ERROR ::
INSERT.PNT[PUM,HE] PAGE 2 LINE 9
FRAME
CLEAR_DRIVER
;
undeclared identifier required
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% ERROR ::
INSERT.PNT[PUM,HE] PAGE 2 LINE 13
FRAME
STEM_TOUCH
;
undeclared identifier required
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% ERROR ::
INSERT.PNT[PUM,HE] PAGE 2 LINE 17
FRAME
STEM_FINAL
;
undeclared identifier required
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% ERROR ::
INSERT.PNT[PUM,HE] PAGE 2 LINE 21
FRAME
STEM_PICKUP
;
undeclared identifier required
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% ERROR ::
INSERT.PNT[PUM,HE] PAGE 2 LINE 26
FRAME
TEMP
;
undeclared identifier required
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% ERROR ::
INSERT.PNT[PUM,HE] PAGE 2 LINE 27
TRANS
UPHALF
, UP1, UP2, UP3, DOWN1, DOWN3;
undeclared identifier required
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% ERROR ::
INSERT.PNT[PUM,HE] PAGE 2 LINE 28
TRANS
STEM_TIP
, STEM_TOP;
undeclared identifier required
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% ERROR ::
INSERT.PNT[PUM,HE] PAGE 2 LINE 29
SCALAR
DELTA
;
undeclared identifier required
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% ERROR ::
INSERT.PNT[PUM,HE] PAGE 2 LINE 30
SCALAR
FAILED
;
undeclared identifier required
%%%%%%%%%%%%%%%%%%%%%%%}
SAVECOREIMAGE
XX
{PONTY0.DMP[PNT, HE] :15:37 1 Apr 1981 ALIAS [PUM, HE] LOGIN [ 1, RV]:Rick}
SHOW TRYIT
{%%%%% ERROR ::
error in $EVLARR
%%%%%%%%%%%%%%%%%%%%%%%}
TRY_INSERTION
{PONTY0.DMP[PNT, HE] :15:40 1 Apr 1981 ALIAS [PUM, HE] LOGIN [ 1, RV]:Rick}
QREAD INSERT.PNT
EDIT TRY_INSERTION
TRY_INSERTION
{5.N .$↑ [$X , *] :16:43 1 Apr 1981 ALIAS [TMP,MSM] LOGIN [ 1,MSM]:Shahid}
DEFINE FO=⊂QRE⊃;
BAIL
BAIL(BREAK("SHOWCALL"));
SHOW FO
{%%%%% ERROR ::
error in $EVLARR
%%%%%%%%%%%%%%%%%%%%%%%}
BAIL(BREAK("CVSYM"));
{%%%%% ERROR ::
;
error in $EVLARR
%%%%%%%%%%%%%%%%%%%%%%%}
SHOW FO
{%%%%% ERROR ::
error in $EVLARR
%%%%%%%%%%%%%%%%%%%%%%%}
SHOW FO
{PONTY0.DMP[PNT, HE] :16:58 1 Apr 1981 ALIAS [PUM, HE] LOGIN [ 1, RV]:Rick}
QREAD SPRDEF
<ESCAPE> I termination
STEM_TOUCH ← BAARM
{%%%%% ERROR ::
STEM_TOUCH ←
BAARM
UNEXPECTED TOKEN FOUND ⊂BAARM⊃
%%%%%%%%%%%%%%%%%%%%%%%}
STEM_TOUCH ← BARM
STEM_FINAL ← BARM
DISPLAY FRAMSE
{%%%%% ERROR ::
DISPLAY
FRAMSE
No such data type: FRAMSE
%%%%%%%%%%%%%%%%%%%%%%%}
DISPLAY FRAMES
WRITE ALL INTO SPRDEF.AL
STEM_IN ← BARM
ASSEMBLY_GRAB ← BARM
CLOSE BHAND TO 0*INCH
MOVE BARM TO BARM*UP3 WITH DURATION=3*SEC DIRECTLY
{%%%%% ERROR ::
MOVE BARM TO BARM*
UP3
WITH DURATION=3*SEC DIRECTLY
UNEXPECTED TOKEN FOUND ⊂UP3⊃
%%%%%%%%%%%%%%%%%%%%%%%}
MOVE BARM TO BARM*TRANS(NILROT,-3*ZHAT*INCH) WITH DURATION=3*SEC DIRECTLY
MOVE BARM TO CLEAR_DRIVER WITH DURATION=3*SEC DIRECTLY
WRITE ALL INTO SPRDEF.AL
EXIT
{exiting at 17:10 1 Apr 1981
$FPMAX=120
$INTMAX=5
$PCDMAX=66}
{5.N .$↑ [$X , *] :1:14 2 Apr 1981 ALIAS [TMP,MSM] LOGIN [ 1,MSM]:Shahid}
DEFINE FOO
=⊂PRINT("FRE")⊃;
SHOW FOO
DELETE ALL
NODISPLAY
QREAD INSERT.PNT[DEM,HE]
{%%%%% ERROR ::
INSERT.PNT[DEM,HE] is nonexistent
%%%%%%%%%%%%%%%%%%%%%%%}
QREAD INSERT.PNT[PUM,HE]
SHOW TRY
{%%%%% ERROR ::
SHOW
TRY
SHOW: Need a macro, procedure or variable name after SHOW
%%%%%%%%%%%%%%%%%%%%%%%}
SHOW TRY_INSERT
{%%%%% ERROR ::
SHOW
TRY_INSERT
SHOW: Need a macro, procedure or variable name after SHOW
%%%%%%%%%%%%%%%%%%%%%%%}
DISPLAY MACROST
{%%%%% ERROR ::
DISPLAY
MACROST
No such data type: MACROST
%%%%%%%%%%%%%%%%%%%%%%%}
DISPLAY MACROS
DISPLAY PROCEDURES
{PONTY2.DMP[PNT, HE] :2:42 2 Apr 1981 ALIAS [PNT, HE] LOGIN [ 1,MSM]:Shahid}
RESUME_MESSAGE("VERSION INCLUDES DIMENSION CHECKING
");
SAVECOREIMAGE P0
{PONTY2.DMP[PNT, HE] :2:43 2 Apr 1981 ALIAS [PNT, HE] LOGIN [ 1,MSM]:Shahid}
WQ←BARM+100*ZHAT
{%%%%% WARNING ::
WQ←BARM+100*ZHAT
Argument 2 must have same dimensions as that of argument 1
Argument 2 has dimensions: DIMENSIONLESS
argument 1 has dimensions: [DISTANCE]↑1
%%%%%%%%%%%%%%%%%%%%%%%}
WRITE ALL INTO FOO.FOO
EXT
{%%%%% ERROR ::
EXT
UNDECLARED IDENTIFIER EXT : requires ← or : here
%%%%%%%%%%%%%%%%%%%%%%%}
EXIT
{exiting at 2:44 2 Apr 1981
$FPMAX=6
$INTMAX=5
$PCDMAX=27}
{PONTY2.DMP[PNT, HE] :12:53 2 Apr 1981 ALIAS [ 1,MSM] LOGIN [ 1,MSM]:Shahid}
W←BARM
WRITE ALL INTO FOO.FOO
MOVE BARM TO BPARK
DEFINE OZ=⊂OUNCES⊃;
QREAD INSERT.PNT[PUM,HE]
SHOW TRY_IT
{%%%%% ERROR ::
SHOW
TRY_IT
SHOW: Need a macro, procedure or variable name after SHOW
%%%%%%%%%%%%%%%%%%%%%%%}
SHOW END_IT
{%%%%% ERROR ::
SHOW
END_IT
SHOW: Need a macro, procedure or variable name after SHOW
%%%%%%%%%%%%%%%%%%%%%%%}
SHOW ENDIT
DISPLAY MACROS
TRY_INSERTION
{%%%%% WARNING ::
WITH
FORCE_WRIST NOT ZEROED
Dimensional incompatibility in DURATION clause
Your value has dimensions: DIMENSIONLESS
Desired value has dimensions: [TIME]↑1
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% ERROR ::
OUNCES
UNEXPECTED TOKEN FOUND ⊂OUNCES⊃
%%%%%%%%%%%%%%%%%%%%%%%}
SHOW TRY_INSERTION
{PONTY5.DMP[H\C, [] :14:18 2 Apr 1981 ALIAS [PNT, HE] LOGIN [ 1,MSM]:Shahid}
QREAD INSERT.PNT[PUM,HE]
SHOW TRY_INSERTION
TRY_INSERTION
{%%%%% ERROR ::
WITH FORCE(ZHAT)= 8*
OZ
UNEXPECTED TOKEN FOUND ⊂OZ⊃
%%%%%%%%%%%%%%%%%%%%%%%}
FORCE SCALAR OZ; OZ←1;
TRY_INSERTION
GRAPH
{%%%%% ERROR ::
GRAPH
GRAPH: no data currently available
%%%%%%%%%%%%%%%%%%%%%%%}
PRINT STEM_FINAL
{%%%%% ERROR ::
PRINT
STEM_FINAL
⊂(⊃ is required here
%%%%%%%%%%%%%%%%%%%%%%%}
PRINT(STEM_FINAL)
MOVE BARM TO BPARK
GATHER(FZ)
MOVE BARM TO BPARK WITH DURATION=5
GRAPH
TRY_INSERTION
GRAPH
{%%%%% ERROR ::
GRAPH
GRAPH: no data currently available
%%%%%%%%%%%%%%%%%%%%%%%}
MOVE BARM TO BPARK
MOVE BARM TO BPARK WITH DURATION=3 WITH GATHER=(FX,FY,FZ)
GRAPH
{%%%%% ERROR ::
GRAPH
GRAPH: no data currently available
%%%%%%%%%%%%%%%%%%%%%%%}
SETSTATUS(PPCODE);
NODISPLAY
MOVE BARM TO BPARK WITH DURATION=3 WITH GATHER=(FZ)
{PONTY5.DMP[H\C, [] :14:50 2 Apr 1981 ALIAS [TMP,MSM] LOGIN [ 1,MSM]:Shahid}
MOVE BARM TO BPAK
{%%%%% ERROR ::
MOVE BARM TO
BPAK
UNEXPECTED TOKEN FOUND ⊂BPAK⊃
%%%%%%%%%%%%%%%%%%%%%%%}
MOVE BARM TO BPARK
MOVE BARM TO BPARK WITH GATHER=(FX,FY,FZ)
GRAPH
QREAD INSERT.PNT[PUM,HE]
TRY_INSERTION
{%%%%% ERROR ::
END
;
EVAL DISASTER: trying to transfer too many numbers; probably overran FP buffer
%%%%%%%%%%%%%%%%%%%%%%%}
W←3
{PONTY5.DMP[PNT, HE] :14:56 2 Apr 1981 ALIAS [PNT, HE] LOGIN [ 1,MSM]:Shahid}
MOVE BARM TO BPARK
RESUME_MESSAGE("VERSION INCLUDES DIMENSION CHECKING
");
SAVECOREIMAGE P5
{ continued writing again at 14:57 2 Apr 1981}
SETBASE
VECTOR F,T
WRIST(F,T)
{PONTY5.DMP[PNT, HE] :14:58 2 Apr 1981 ALIAS [PNT, HE] LOGIN [ 1,MSM]:Shahid}
MOVE BARM TO BPARK
QREAD INSERT.PNT[PUM,HE]
SHOW TRY_INSERTION
SHOW ENDIT
EXIT
{exiting at 15:00 2 Apr 1981
$FPMAX=0
$INTMAX=5
$PCDMAX=57}
{PONTY5.DMP[PNT, HE] :15:01 2 Apr 1981 ALIAS [TMP,MSM] LOGIN [ 1,MSM]:Shahid}
MOVE BARM TO BPARK
EXIT
{exiting at 15:05 2 Apr 1981
$FPMAX=0
$INTMAX=5
$PCDMAX=27}
{PONTY5.DMP[PNT, HE] :3:11 3 Apr 1981 ALIAS [THE,MSM] LOGIN [ 1,MSM]:Shahid}
<ESCAPE> I termination
SETSTATUS(NOELF)
READ PALLET.AL
{%%%%% ERROR ::
PALLET.AL is nonexistent
%%%%%%%%%%%%%%%%%%%%%%%}
{5.N .$↑ [$X , *] :3:30 3 Apr 1981 ALIAS [TMP,MSM] LOGIN [ 1,MSM]:Shahid}
QREAD PALLET.AL
{%%%%% ERROR ::
PALLET.AL[TMP,MSM] PAGE 3 LINE 82
ROFFSET[PALLET_NUM]←
ROWOFFEST
;
UNEXPECTED TOKEN FOUND ⊂ROWOFFEST⊃
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% ERROR ::
PALLET.AL[TMP,MSM] PAGE 3 LINE 104
RETURN(I
)
;
declared procedure type and value returned not of same type
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% ERROR ::
PALLET.AL[TMP,MSM] PAGE 3 LINE 129
ELSE BEGIN CURROW[PALLET_NO]←
MAXROW
[PALLET_NO]
UNEXPECTED TOKEN FOUND ⊂MAXROW⊃
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% ERROR ::
PALLET.AL[TMP,MSM] PAGE 3 LINE 146
P←
VALID_PALLET
(PALLET_NO);
UNEXPECTED TOKEN FOUND ⊂VALID_PALLET⊃
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% ERROR ::
PALLET.AL[TMP,MSM] PAGE 3 LINE 161
P←
VALID_PALLET
(PALLET_NO);
UNEXPECTED TOKEN FOUND ⊂VALID_PALLET⊃
%%%%%%%%%%%%%%%%%%%%%%%}
EXIT
{exiting at 3:31 3 Apr 1981
$FPMAX=0
$INTMAX=0
$PCDMAX=128}
{PONTY0.DMP[TMP,MSM] :3:36 3 Apr 1981 ALIAS [TMP,MSM] LOGIN [ 1,MSM]:Shahid}
QREAD PALLET.AL
{%%%%% ERROR ::
PALLET.AL[TMP,MSM] PAGE 3 LINE 84
HOFFSET[PALLET_NUM]←
HGHTOFFST
;
UNEXPECTED TOKEN FOUND ⊂HGHTOFFST⊃
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% ERROR ::
PALLET.AL[TMP,MSM] PAGE 3 LINE 130
IF
CURCOL[PALLET_NO]>1
⊂;⊃ or ⊂END⊃ is required here
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% ERROR ::
PALLET.AL[TMP,MSM] PAGE 3 LINE 151
F←PALLET_ORIGIN[PALLET_NO]+ROFFSET
*
(CURROW[PALLET_NO]-1)
Need [ after array name
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% ERROR ::
PALLET.AL[TMP,MSM] PAGE 3 LINE 162
DECREMENT_POINTER
(
PALLET_NO);
UNDECLARED IDENTIFIER DECREMENT_POINTER : requires ← or : here
%%%%%%%%%%%%%%%%%%%%%%%}
EXIT
{exiting at 3:38 3 Apr 1981
$FPMAX=0
$INTMAX=0
$PCDMAX=128}
{PONTY0.DMP[TMP,MSM] :3:41 3 Apr 1981 ALIAS [TMP,MSM] LOGIN [ 1,MSM]:Shahid}
QREAD PALLET.AL
{%%%%% ERROR ::
PALLET.AL[TMP,MSM] PAGE 3 LINE 130
IF
CURCOL[PALLET_NO]>1
⊂;⊃ or ⊂END⊃ is required here
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% ERROR ::
PALLET.AL[TMP,MSM] PAGE 3 LINE 162
DECREMENT_POINTER
(
PALLET_NO);
UNDECLARED IDENTIFIER DECREMENT_POINTER : requires ← or : here
%%%%%%%%%%%%%%%%%%%%%%%}
EXIT
{exiting at 3:42 3 Apr 1981
$FPMAX=0
$INTMAX=0
$PCDMAX=200}
{PONTY0.DMP[TMP,MSM] :3:43 3 Apr 1981 ALIAS [TMP,MSM] LOGIN [ 1,MSM]:Shahid}
QREAD PALLET.AL
{%%%%% ERROR ::
PALLET.AL[TMP,MSM] PAGE 3 LINE 132
ELSE BEGIN SIGNAL
PALLET_FULL
[PALLET_NO];
Need identifier here
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% ERROR ::
PALLET.AL[TMP,MSM] PAGE 3 LINE 162
DECREMENT_POINTER
(
PALLET_NO);
UNDECLARED IDENTIFIER DECREMENT_POINTER : requires ← or : here
%%%%%%%%%%%%%%%%%%%%%%%}
EXIT
{exiting at 3:45 3 Apr 1981
$FPMAX=0
$INTMAX=0
$PCDMAX=200}
{PONTY0.DMP[TMP,MSM] :3:47 3 Apr 1981 ALIAS [TMP,MSM] LOGIN [ 1,MSM]:Shahid}
QREAD PALLET.AL
{%%%%% ERROR ::
PALLET.AL[TMP,MSM] PAGE 3 LINE 137
ELSE BEGIN SIGNAL
PALLET_STACK_FULL
[PALLET_NO];
Need identifier here
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% ERROR ::
PALLET.AL[TMP,MSM] PAGE 3 LINE 163
DECREMENT_POINTER
(
PALLET_NO);
UNDECLARED IDENTIFIER DECREMENT_POINTER : requires ← or : here
%%%%%%%%%%%%%%%%%%%%%%%}
DELETE ALL
QREAD PALLET.AL
{%%%%% ERROR ::
PALLET.AL[TMP,MSM] PAGE 3 LINE 170
F←PALLET_ORIGIN[PALLET_NO]+
ROW_OFFSET
[PALLET_NO]*(CURROW[PALLET_NO]-1)
UNEXPECTED TOKEN FOUND ⊂ROW_OFFSET⊃
%%%%%%%%%%%%%%%%%%%%%%%}
DELETE ALL
AT 13
{%%%%% ERROR ::
AT
13
UNDECLARED IDENTIFIER AT : requires ← or : here
%%%%%%%%%%%%%%%%%%%%%%%}
QREAD PALLET.AL
EXIT
{exiting at 3:54 3 Apr 1981
$FPMAX=0
$INTMAX=0
$PCDMAX=200}
{PONTY0.DMP[TMP,MSM] :3:32 6 Apr 1981 ALIAS [TMP,MSM] LOGIN [ 1,MSM]:Shahid}
SETSTATUS(PPCODE);
PRINT(ISAFFIXED(BARM,YARM));
{%%%%% ERROR ::
PRINT(ISAFFIXED(BARM
,
YARM));
, is not a valid term in an expression
%%%%%%%%%%%%%%%%%%%%%%%}
PRINT(ISAFFIXED(BARM YARM));
{%%%%% ERROR ::
PRINT(ISAFFIXED(BARM YARM
)
);
⊂,⊃ is required here
%%%%%%%%%%%%%%%%%%%%%%%}
PRINT(ISAFFIXED(BARM,,YARM));
{%%%%% ERROR ::
PRINT(ISAFFIXED(BARM
,
,YARM));
, is not a valid term in an expression
%%%%%%%%%%%%%%%%%%%%%%%}
PRINT(ARMREACH(BARM,,YARM));
{%%%%% ERROR ::
PRINT(ARMREACH(BARM
,
,YARM));
, is not a valid term in an expression
%%%%%%%%%%%%%%%%%%%%%%%}
PRINT(ARMREACH(BARM,YARM));
{%%%%% ERROR ::
PRINT(ARMREACH(BARM
,
YARM));
, is not a valid term in an expression
%%%%%%%%%%%%%%%%%%%%%%%}
PRINT(ARMREACH(BARM YARM));
{PONTY0.DMP[TMP,MSM] :12:55 6 Apr 1981 ALIAS [TMP,MSM] LOGIN [ 1,MSM]:Shahid}
BAIL;
PRINT(ISAFFIXED(BARM,GARM));
SETSTATUS(PPCODE);
PRIN(ISAFFIXED(BARM,GARM));
{%%%%% ERROR ::
PRIN
(
ISAFFIXED(BARM,GARM));
UNDECLARED IDENTIFIER PRIN : requires ← or : here
%%%%%%%%%%%%%%%%%%%%%%%}
PRINT(ISAFFIXED(BARM,GARM));
FRAME F1
PRINT(ISAFFIXED(F1,BARM));
{PONTY0.DMP[TMP,MSM] :13:48 6 Apr 1981 ALIAS [TMP,MSM] LOGIN [ 1,MSM]:Shahid}
PRINT(ISAFFIXED(BARM,YARM))
SETSTATUS(PPCODE)
PRINT(ISAFFIXEX(BARM,YARM));
{%%%%% ERROR ::
PRINT(
ISAFFIXEX
(BARM,YARM));
UNEXPECTED TOKEN FOUND ⊂ISAFFIXEX⊃
%%%%%%%%%%%%%%%%%%%%%%%}
PRINT(ISAFFIXED(BARM,YARM));
PRINT(ARMREACH(BARM,YPARK));
EXIT
{exiting at 13:54 6 Apr 1981
$FPMAX=0
$INTMAX=0
$PCDMAX=27}
{PONTY5.DMP[PNT, HE] :14:21 6 Apr 1981 ALIAS [DEM, HE] LOGIN [ 1, RV]:Rick}
CALIB(GARM)
PJOINT
{%%%%% ERROR ::
PJOINT
⊂(⊃ is required here
%%%%%%%%%%%%%%%%%%%%%%%}
PJOINT(GARM)
CLOSE GHAND TO 0
{%%%%% WARNING ::
CLOSE GHAND TO 0
Dimensional incompatibility in OPEN/CLOSE statement
Your expression has dimensions: DIMENSIONLESS
Desired expression has dimensions: [DISTANCE]↑1
%%%%%%%%%%%%%%%%%%%%%%%}
PJOINT
{%%%%% ERROR ::
PJOINT
⊂(⊃ is required here
%%%%%%%%%%%%%%%%%%%%%%%}
PJOINT(GARM)
TIP←GARM
AFFIX TIP TO GARM AT TRANS(NILROT,-1*XHAT*INCH)
MOVE TIP TO TIP*TRANS(ROT(ZHAT,20*DEG),NILVECT*INCH)
DISPLAY FRAMES
{PONTY5.DMP[PNT, HE] :14:29 6 Apr 1981 ALIAS [DEM, HE] LOGIN [ 1, RV]:Rick}
CALIB(GARM)
PJOINT(GARM)
START←GARM
MOVE GARM TO START*TRANS(ROT(ZHAT,-20*DEG),NILVECT*INCH)
MOVE GARM TO START*TRANS(ROT(ZHAT,-50*DEG),NILVECT*INCH)
MOVE GARM TO START*TRANS(ROT(ZHAT,30*DEG),NILVECT*INCH)
MOVE GARM TO START
FRAME TIP
AFFIX TIP TO GARM AT TRANS(NILROT,-1*XHAT*INCH)
MOVE GARM TO TIP
MOVE GARM TO TIP
MOVE GARM TO START WITH DURATION=10*SEC DIRECTLY
SHOW GARM
SHOW TIP
UNFIX TIP FROM GARM
SHOW TIP,GARM
MOVE GARM TO TIP
AFFIX TIP TO GARM AT TRANS(NILROT,-1*XHAT)
P0←TIP
SHOW P0,GARM
MOVE GARM TO P0
SHOW P0,TIP
PRINT (P0)
PRINT (TIP)
PRINT(GARM)
PRINT(GARM)
MOVE GARM TO START
SHOW START,P0
MOVE GARM TO P0
MOVE GARM TO START
PJOINT(GARM)
START←GARM
AFFIX TIP TO GARM AT TRANS(NILROT,-1*XHAT*INCH)
MOVE GARM TO START
MOVE GARM TO TIP
MOVE GARM TO START
MOVE GARM TO START*TRANS(NILROT,-1*XHAT*INCHES)
MOVE GARM TO FRAME(OR
{%%%%% ERROR ::
MOVE GARM TO FRAME(
OR
OR is not a valid term in an expression
%%%%%%%%%%%%%%%%%%%%%%%}
MOVE GARM TO START -XHAT*INCHES WRT START
MOVE GARM TO START
MOVE GARM TO START-XHAT*INCHES WRT START
PJOINT(GARM)
MOVE GARM TO TART
{%%%%% ERROR ::
MOVE GARM TO
TART
UNEXPECTED TOKEN FOUND ⊂TART⊃
%%%%%%%%%%%%%%%%%%%%%%%}
MOVE GARM TO START
PJOINT(GARM)
OPEN GHAND TO 1*INCH
CLOSE GHAND TO 0*INCH
START←GARM
MOVE GARM TO START*TRANS(NILROT,-1*XHAT*INCH)
MOVE GARM TO START*TRANS(ROT(ZHAT,20*DEG),NILVECT*INCH)
MOVE GARM TO START*TRANS(ROT(ZHAT,-20*DEG),NILVECT*INCH)
AFFIX TIP TO GARM AT TRANS(NILROT,-1*XHAT*INCH)
MOVE GARM TO TIP
MOVE GARM TO START
MOVE GARM TO START*TRANS(NILROT,-1*XHAT*INCH)
MOVE GARM TO START
P0←TIP
MOVE GARM TO P0
MOVE GARM TO START
MOVE GARM TO TIP
SHOW TIP,GARM,START,P0
MOVE GARM TO START
MOVE GARM TO TIP
MOVE GARM TO TIP
MOVE GARM TO TIP
MOVE TIP TO START
MOVE GARM TO START
OPEN GHAND TO 1*INCH
CLOSE GHAND TO 0*INCH
MOVE GARM TO START
MOVE TIP TO START
MOVE TIP TO START
MOVE TIP TO TIP*TRANS(ROT(ZHAT,-20*DEG),NILVECT*INCH)
MOVE TIP TO TIP*TRANS(ROT(ZHAT,20*DEG),NILVECT*INCH)
MOVE TIP TO START
MOVE GARM TO TART
{%%%%% ERROR ::
MOVE GARM TO
TART
UNEXPECTED TOKEN FOUND ⊂TART⊃
%%%%%%%%%%%%%%%%%%%%%%%}
MOVE GARM TO START
MOVE TIP TO START*TRANS(ROT(ZHAT,20*DEG),NILVECT)
{%%%%% WARNING ::
MOVE TIP TO START*TRANS(ROT(ZHAT,20*DEG),NILVECT)
Argument 2 must have same dimensions as that of argument 1
Argument 2 has dimensions: DIMENSIONLESS
argument 1 has dimensions: [DISTANCE]↑1
%%%%%%%%%%%%%%%%%%%%%%%}
MOVE TIP TO START*TRANS(ROT(ZHAT,40*DEG),NILVECT*INCH) WITH DURATION=5*SEC
MOVE TIP TO START*TRANS(ROT(ZHAT,170*DEG),NILVECT*INCH) WITH DURATION=5*SEC
MOVE TIP TO START*TRANS(ROT(ZHAT,90*DEG),NILVECT*INCH) WITH DURATION=5*SEC
MOVE TIP TO START*TRANS(ROT(ZHAT,120*DEG),NILVECT*INCH) WITH DURATION=5*SEC
EXIT
{exiting at 15:03 6 Apr 1981
$FPMAX=24
$INTMAX=5
$PCDMAX=46}
{PONTY0.DMP[TMP,MSM] :17:31 6 Apr 1981 ALIAS [TMP,MSM] LOGIN [ 1,MSM]:Shahid}
SETSTATUS(PPCODE)
A←3;
PRINT(A*3)
PRINT(XHAT)
PRINT(XHAT)
PRINT(YHAT)
PRINT(BARM)
DDT
PRINT(ISAFFIXED(BARM,YARM));
SETSTATUS(ALPRIN);
PRINT(CRLF);
SCALAR I; FOR I←1 STEP 1 UNTIL 6 DO PRINT(CRLF);
FOR I←1 STEP 1 UNTIL 6 DO PRINT(CRLF);
PRINT(ISAFFIXED(BARM,GARM));
FRAME TIP
AFFIX TIP TO BARM AT NILTRANS
PRINT(ISAFFIXED(TIP,BARM))
PRINT(ISAFFIXED(TIP,GARM))
PRINT(ISAFFIXED(BARM,TIP))
PRINT(ARMREACH(BARM,BPARK))
PRINT(ARMREACH(BARM,YPARK))
PRINT(ARMREACH(BARM,YPARK))
PRINT("BARM VS YPARK",ARMREACH(BARM,YPARK))
PRINT("V1 VS V2",CRLF,ARMREACH(BARM,YPARK))
PRINT("V1 VS V2",CRLF,ARMREACH(BARM,STATION))
PRINT("V1 VS V2",CRLF,ARMREACH(BARM,STATION))
PRINT("V1 VS V2",CRLF,ARMREACH(BARM,BPARK-100*ZHAT))
{%%%%% WARNING ::
PRINT("V1 VS V2",CRLF,ARMREACH(BARM,BPARK-100*ZHAT
)
)
Argument 2 must have same dimensions as that of argument 1
Argument 2 has dimensions: DIMENSIONLESS
argument 1 has dimensions: [DISTANCE]↑1
%%%%%%%%%%%%%%%%%%%%%%%}
DDT; PRINT("V1 VS V2",CRLF,ARMREACH(BARM,BPARK-100*ZHAT))
{%%%%% WARNING ::
DDT; PRINT("V1 VS V2",CRLF,ARMREACH(BARM,BPARK-100*ZHAT
)
)
Argument 2 must have same dimensions as that of argument 1
Argument 2 has dimensions: DIMENSIONLESS
argument 1 has dimensions: [DISTANCE]↑1
%%%%%%%%%%%%%%%%%%%%%%%}
PRINT("V1 VS V2",CRLF,ARMREACH(BARM,BPARK-100*ZHAT*INCHES))
PRINT("V1 VS V2",CRLF,ARMREACH(BARM,BPARK-100*ZHAT*INCHES))
PRINT("V1 VS V2",CRLF,ARMREACH(BARM,BPARK-100*ZHAT*INCHES))
PRINT("V1 VS V2",CRLF,ARMREACH(BARM,BPARK))
PRINT("V1 VS V2",CRLF,ARMREACH(BARM,BPARK))
PRINT("V1 VS V2",CRLF,ARMREACH(BARM,BPARK))
PRINT("V1 VS V2",CRLF,ARMREACH(BARM,YPARK))
EXIT
{exiting at 18:00 6 Apr 1981
$FPMAX=0
$INTMAX=5
$PCDMAX=30}
{PONTY5.DMP[PNT, HE] :18:24 6 Apr 1981 ALIAS [PNT, HE] LOGIN [ 1,MSM]:Shahid}
DISPLAY SCALARS
DISPLAY VECTORS
DISPLAY ROTS
{PONTY5.DMP[PNT, HE] :2:41 7 Apr 1981 ALIAS [TMP,MSM] LOGIN [ 1,MSM]:Shahid}
SHOW BARM
SHOW YARM
{PONTY0.DMP[TMP,MSM] :11:19 7 Apr 1981 ALIAS [ 1,MSM] LOGIN [ 1,MSM]:Shahid}
SHOW RARM
DISPLAY FRAMES
CALIB(RARM)
MOVE RARM TO RPARK
MOVE RARM TO RPARK
MOVE RARM TO RPARK-8*ZHAT*INCHES
MOVE RARM VIA RPARK-8*ZHAT*INCHES TO RPARK
MOVE BARM TO BPARK
NODISPLAY
DRIVE BJT(1) TO 90
{%%%%% WARNING ::
DRIVE BJT(1) TO 90
Dimensional incompatibility in DRIVE statement
Your value has dimensions: DIMENSIONLESS
Desired value has dimensions: [ANGLE]↑1
%%%%%%%%%%%%%%%%%%%%%%%}
DRIVE BJT(2) TO -80
{%%%%% WARNING ::
DRIVE BJT(2) TO -80
Dimensional incompatibility in DRIVE statement
Your value has dimensions: DIMENSIONLESS
Desired value has dimensions: [ANGLE]↑1
%%%%%%%%%%%%%%%%%%%%%%%}
DRIVE BJT(2) TO -70*DEG
MOVE BARM TO BPARK
PRINT(BGRASP)
PRINT(ISAFFIXED(BGRASP,BARM))
PRINT(ISAFFIXED(YARM,BARM))
PRINT(ARMREACH(BARM,BPARK))
PRINT(ARMREACH(BARM,BPARK))
PRINT(ARMREACH(BARM,YPARK))
PRINT(ARMREACH(BARM,STATION))
PRINT(ARMREACH(BARM,STATION))
DDT
PRINT(ARMREACH(BARM,BPARK))
PRINT(ARMREACH(BARM,YPARK))
PRINT(ARMREACH(BARM,STATION))
EXIT
{exiting at 11:29 7 Apr 1981
$FPMAX=54
$INTMAX=5
$PCDMAX=35}
{PONTY0.DMP[TMP,MSM] :11:36 7 Apr 1981 ALIAS [PNT, HE] LOGIN [ 1,MSM]:Shahid}
DISPLAY FRAMES
MOVE BARM TO BPARK+5*XHAT*INCHES
MOVE BARM TO BPARK
PRINT(CANREACH(BARM,YPARK))
{%%%%% ERROR ::
PRINT(
CANREACH
(BARM,YPARK))
UNEXPECTED TOKEN FOUND ⊂CANREACH⊃
%%%%%%%%%%%%%%%%%%%%%%%}
PRINT(ARMREACH(BARM,YPARK))
EXIT
{exiting at 11:42 7 Apr 1981
$FPMAX=54
$INTMAX=5
$PCDMAX=33}
{PONTY5.DMP[PNT, HE] :11:51 7 Apr 1981 ALIAS [PNT, HE] LOGIN [ 1,MSM]:Shahid}
DISPLAY FRAMES
BLOCK0←BARM
BLOCK1←BARM
OPEN BHAND TO 3
{%%%%% WARNING ::
OPEN BHAND TO 3
Dimensional incompatibility in OPEN/CLOSE statement
Your expression has dimensions: DIMENSIONLESS
Desired expression has dimensions: [DISTANCE]↑1
%%%%%%%%%%%%%%%%%%%%%%%}
MOVE BARM TO BLOCK1+3*ZHAT*INCHES,BLOCK0+3*ZHAT*INCHES,BLOCK0
{%%%%% ERROR ::
MOVE BARM TO BLOCK1+3*ZHAT*INCHES
,
BLOCK0+3*ZHAT*INCHES,BLOCK0
Need ; or carriage return here
%%%%%%%%%%%%%%%%%%%%%%%}
MOVE BARM VIA BLOCK1+3*ZHAT*INCHES,BLOCK0+3*ZHAT*INCHES TO BLOCK0
CENTER BARM
MOVE BARM TO BLOCK0+3*ZHAT*INCHES,BLOCK1+3*ZHAT*INCHHES,BLOCK1
{%%%%% ERROR ::
MOVE BARM TO BLOCK0+3*ZHAT*INCHES
,
BLOCK1+3*ZHAT*INCHHES,BLOCK1
Need ; or carriage return here
%%%%%%%%%%%%%%%%%%%%%%%}
MOVE BARM VIA BLOCK0+3*ZHAT*INCHES,BLOCK1+3*ZHAT*INCHHES TO BLOCK1
{%%%%% ERROR ::
MOVE BARM VIA BLOCK0+3*ZHAT*INCHES,BLOCK1+3*ZHAT*
INCHHES
TO BLOCK1
UNEXPECTED TOKEN FOUND ⊂INCHHES⊃
%%%%%%%%%%%%%%%%%%%%%%%}
MOVE BARM VIA BLOCK0+3*ZHAT*INCHES,BLOCK1+3*ZHAT*INCHES TO BLOCK1
{PONTY0.DMP[PNT, HE] :20:51 7 Apr 1981 ALIAS [PNT, HE] LOGIN [ 1,MSM]:Shahid}
RESUME_MESSAGE("THIS VERSION DOES DIMENSION CHECKING
");
SAVECOREIMAGE P0
{ continued writing again at 20:52 7 Apr 1981}
<ESCAPE> I termination
EXIT
{exiting at 20:55 7 Apr 1981
$FPMAX=0
$INTMAX=5
$PCDMAX=27}
{PONTY0.DMP[PNT, HE] :20:57 7 Apr 1981 ALIAS [PNT, HE] LOGIN [ 1,MSM]:Shahid}
RESUME_MESSAGE("THIS VERSION DOES DIMENSION CHECKING
");
SAVECOREIMAGE P0
{PONTY0.DMP[PNT, HE] :21:06 7 Apr 1981 ALIAS [PNT, HE] LOGIN [ 1,MSM]:Shahid}
RESUME_MESSAGE("THIS VERSION HAS DIMENSION CHECKING
");
SAVECOREIMAGE P0
{ continued writing again at 21:10 7 Apr 1981}
EXIT
{exiting at 21:11 7 Apr 1981
$FPMAX=0
$INTMAX=5
$PCDMAX=27}
{PONTY0.DMP[PNT, HE] :21:16 7 Apr 1981 ALIAS [PNT, HE] LOGIN [ 1,MSM]:Shahid}
RESUME_MESSAGE("THIS VERSION INCLUDES DIMENSION CHECKING
");
SAVECOREIMAGE P0
{PONTY0.DMP[PNT, HE] :21:32 7 Apr 1981 ALIAS [PNT, HE] LOGIN [ 1,MSM]:Shahid}
SAVECOREIMAGE P1
{PONTY0.DMP[PNT, HE] :21:41 7 Apr 1981 ALIAS [PNT, HE] LOGIN [ 1,MSM]:Shahid}
SAVECOREIMAGE P2
{PONTY0.DMP[PNT, HE] :21:48 7 Apr 1981 ALIAS [PNT, HE] LOGIN [ 1,MSM]:Shahid}
SHOW RARM
NODISPLAY
SAVECOREIMAGE P10
{PONTY0.DMP[PNT, HE] :21:58 7 Apr 1981 ALIAS [PNT, HE] LOGIN [ 1,MSM]:Shahid}
SAVECOREIMAGE P100
{PONTY0.DMP[PNT, HE] :22:11 7 Apr 1981 ALIAS [PNT, HE] LOGIN [ 1,MSM]:Shahid}
SAVECOREIMAGE P100
{PONTY0.DMP[PNT, HE] :22:17 7 Apr 1981 ALIAS [PNT, HE] LOGIN [ 1,MSM]:Shahid}
SAVECOREIMAGE P0
{PONTY0.DMP[PNT, HE] :23:44 7 Apr 1981 ALIAS [PNT, HE] LOGIN [ 1,MSM]:Shahid}
SAVECOREIMAGE P0
{PONTY0.DMP[PNT, HE] :23:52 7 Apr 1981 ALIAS [PNT, HE] LOGIN [ 1,MSM]:Shahid}
SAVECOREIMAGE P0
{PONTY0.DMP[PNT, HE] :0:15 8 Apr 1981 ALIAS [PNT, HE] LOGIN [ 1,MSM]:Shahid}
SAVECOREIMAGE PN
{PONTY0.DMP[PNT, HE] :0:29 8 Apr 1981 ALIAS [PNT, HE] LOGIN [ 1,MSM]:Shahid}
SAVECOREIMAGE P0
{PONTY0.DMP[PNT, HE] :0:50 8 Apr 1981 ALIAS [PNT, HE] LOGIN [ 1,MSM]:Shahid}
SAVECOREIMAGE P0
{PONTY0.DMP[TMP,MSM] :0:59 8 Apr 1981 ALIAS [TMP,MSM] LOGIN [ 1,MSM]:Shahid}
BAIL
SAVECOREIMAGE P0
{PONTY0.DMP[PNT, HE] :1:38 8 Apr 1981 ALIAS [PNT, HE] LOGIN [ 1,MSM]:Shahid}
SAVECOREIMAGE P0
{PONTY0.DMP[PNT, HE] :1:42 8 Apr 1981 ALIAS [PNT, HE] LOGIN [ 1,MSM]:Shahid}
SAVECOREIMAGE P0
{PONTY0.DMP[PNT, HE] :2:03 8 Apr 1981 ALIAS [PNT, HE] LOGIN [ 1,MSM]:Shahid}
SAVECOREIMAGE P0
{PONTY0.DMP[TMP,MSM] :2:07 8 Apr 1981 ALIAS [TMP,MSM] LOGIN [ 1,MSM]:Shahid}
BAIL
SAVECOREIMAGE P0
{PONTY0.DMP[TMP,MSM] :13:57 8 Apr 1981 ALIAS [TMP,MSM] LOGIN [ 1,MSM]:Shahid}
SAVECOREIMAGE P0
{PONTY0.DMP[TMP,MSM] :13:58 8 Apr 1981 ALIAS [TMP,MSM] LOGIN [ 1,MSM]:Shahid}
MOVE BARM VIA BPARK+10*XHAT*INCHES TO BPARK
EXIT
{exiting at 14:00 8 Apr 1981
$FPMAX=0
$INTMAX=5
$PCDMAX=35}
{PONTY5.DMP[PNT, HE] :14:57 8 Apr 1981 ALIAS [TMP,MSM] LOGIN [ 1,MSM]:Shahid}
CALIB(GARM)
PJOINT(GARM)
START←GARM
FRAME F1
AFFIX F1 TO GARM AT TRANS(NILROT,-1*XHAT*INCHES)
OPEN GHAND TO 1*INCH
CLOSE GHAND TO 0*INCH
DDT
MOVE F1 TO START
MOVE GARM TO F1
MOVE GARM TO START*TRANS(ROT(ZHAT,-20*DEG),NILVECT) WITH DURATION=2*SEC
{%%%%% WARNING ::
MOVE GARM TO START*TRANS(ROT(ZHAT,-20*DEG),NILVECT)
WITH
DURATION=2*SEC
Argument 2 must have same dimensions as that of argument 1
Argument 2 has dimensions: DIMENSIONLESS
argument 1 has dimensions: [DISTANCE]↑1
%%%%%%%%%%%%%%%%%%%%%%%}
MOVE GARM TO START*TRANS(ROT(ZHAT,40*DEG),NILVECT*INCHES) WITH DURATION=2*SEC
START_TIP←F1
MOVE F1 TO START_TIP*TRANS(ROT(ZHAT,40*DEG),NILVECT*INCH) WITH DURATION=5*SEC
MOVE F1 TO START_TIP*TRANS(ROT(ZHAT,100*DEG),NILVECT*INCH) WITH DURATION=5*SEC
MOVE F1 TO START_TIP*TRANS(ROT(ZHAT,20*DEG),NILVECT*INCH) WITH DURATION=5*SEC
MOVE F1 TO START_TIP*TRANS(ROT(ZHAT,50*DEG),NILVECT*INCH) WITH DURATION=5*SEC
{PONTY5.DMP[PNT, HE] :15:12 8 Apr 1981 ALIAS [TMP,MSM] LOGIN [ 1,MSM]:Shahid}
CALIB(GARM)
FRAME TIP
AFFIX TIP TO GARM AT TRANS(NILROT,-2*XHAT*INCH)
MOVE GARM TO GARM*TRANS(ROT(ZHAT,-30*DEG),NILVECT*INCH)
CLOSE GHAND TO 0*INCHES
START_TIP←TIP
MOVE TIP TO START_TIP*TRANS(ROT(ZHAT,50*DEG),NILVECT*INCHES)
MOVE TIP TO START_TIP*TRANS(ROT(ZHAT,100*DEG),NILVECT*INCHES)WITH DURATION=7*SECONDS
FINAL_TIP←TIP
MOVE TIP TO START_TIP WITH DURATION=5*SEC
SETBASE
DEFINE GO = ⊂
COBEGIN
MOVE TIP TO FINAL_TIP WITH DURATION=10*SEC
ON TRIGGER DO STOP GARM;
BEGIN DO WRIST(F,T) UNTIL |T.YHAT|>3*OZ*INCH; SIGNAL TRIGGER; END;
COEND; ⊃;
VECTOR F,T;
EVENT TRIGGER;
GO
{%%%%% WARNING ::
BEGIN DO WRIST(F,T) UNTIL |T.YHAT|>3*OZ*INCH
;
SIGNAL TRIGGER; END;
Argument 2 must have same dimensions as that of argument 1
Argument 2 has dimensions: [DISTANCE]↑1 *[FORCE]↑1
argument 1 has dimensions: DIMENSIONLESS
%%%%%%%%%%%%%%%%%%%%%%%}
{PONTY5.DMP[PNT, HE] :15:24 8 Apr 1981 ALIAS [TMP,MSM] LOGIN [ 1,MSM]:Shahid}
CALIB(GARM)
PJOINT(GARM)
FRAME TIP
AFFIX TIP TO GARM AT TRANS(NILROT,-2*YHAT*INCH)
START_TIP ← GARM;
MOVE TIP TO START_TIP*TRANS(ROT(ZHAT,100*DEG),NILVECT*INCH) WITH DURATION=5*SEC
AFFIX TIP TO GARM AT TRANS(NILROT,-2*XHAT*INCH)
CLOSE GHAND TO 0*INCH
MOVE GARM TO START_TIP
MOVE GARM TO START_TIP WITH DURATION=5*SEC
START_TIP ← TIP
MOVE TIP TO START_TIP*TRANS(ROT(ZHAT,110*DEG),NILVECT*INCH) WITH DURATION=5*SEC
FINAL_TIP ← TIP
WRITE ALL INTO A13.PNT
EVENT TRIGGER
VECTOR F,T;
PROCEDURE B;
BEGIN DO WRIST(F,T) UNTIL |T.YHAT|≥3; SIGNAL TRIGGER; END;
SETBASE
PROCEDURE G;
MOVE TIP TO FINAL_TIP WITH DURATION=10*SECONDS ON TRIGGER DO STOP GARM;
{PONTY5.DMP[PNT, HE] :16:17 8 Apr 1981 ALIAS [ 1,MSM] LOGIN [ 1,MSM]:Shahid}
CALIB(GARM)
DDT
READ A13TST.AL
{PONTY0.DMP[TMP,MSM] :14:08 9 Apr 1981 ALIAS [ 1,MSM] LOGIN [ 1,MSM]:Shahid}
SAVECOREIMAGE P0
{5.N .$↑ [$X , *] :14:41 9 Apr 1981 ALIAS [TMP,MSM] LOGIN [ 1,MSM]:Shahid}
SAVECOREIMAGE P0
{PONTY0.DMP[TMP,MSM] :15:00 9 Apr 1981 ALIAS [ AL, HE] LOGIN [ 1,MSM]:Shahid}
SAVECOREIMAGE P0
{ continued writing again at 15:00 9 Apr 1981}
EXIT
{exiting at 15:01 9 Apr 1981
$FPMAX=0
$INTMAX=5
$PCDMAX=27}
{5.N .$↑ [$X , *] :15:06 9 Apr 1981 ALIAS [TMP,MSM] LOGIN [ 1,MSM]:Shahid}
SAVECOREIMAGE P0
{5.N .$↑ [$X , *] :15:27 9 Apr 1981 ALIAS [TMP,MSM] LOGIN [ 1,MSM]:Shahid}
SAVECOREIMAGE P0
{5.N .$↑ [$X , *] :15:29 9 Apr 1981 ALIAS [TMP,MSM] LOGIN [ 1,MSM]:Shahid}
MOVE BARM TO BPARK
CALIB(GARM)
MOVE GARM TO GPARK+10*ZHAT
{%%%%% WARNING ::
MOVE GARM TO GPARK+10*ZHAT
Argument 2 must have same dimensions as that of argument 1
Argument 2 has dimensions: DIMENSIONLESS
argument 1 has dimensions: [DISTANCE]↑1
%%%%%%%%%%%%%%%%%%%%%%%}
PRINT(ARMREACH(GARM,GPARK))
PRINT(ARMREACH(GARM,GPARK))
DDT
PRINT(ARMREACH(GARM,GPARK))
PRINT(ARMREACH(GARM,GPARK+10*ZHAT*INCHES))
PRINT(CRLF,ARMREACH(GARM,GPARK+10*ZHAT*INCHES))
PRINT(CRLF,ARMREACH(GARM,NILTRANS))
PRINT(CRLF,ARMREACH(GARM,GPARK+10*ZHAT*INCHES))
PRINT(CRLF,ARMREACH(GARM,GPARK+10*ZHAT*INCHES))
PRINT(CRLF,ARMREACH(GARM,GPARK+10*ZHAT*INCHES))
PRINT(QRE,CRLF,ARMREACH(GARM,GPARK+10*ZHAT*INCHES))
{%%%%% ERROR ::
PRINT(
QRE
,CRLF,ARMREACH(GARM,GPARK+10*ZHAT*INCHES))
UNEXPECTED TOKEN FOUND ⊂QRE⊃
%%%%%%%%%%%%%%%%%%%%%%%}
PRINT("QRE",CRLF,ARMREACH(GARM,GPARK+10*ZHAT*INCHES))
PRINT("QRE",CRLF,ARMREACH(GARM,GPARK+10*ZHAT*INCHES))
PRINT("QRE",CRLF,ARMREACH(GARM,GPARK+10*ZHAT*INCHES))
PRINT("QRE",CRLF,ARMREACH(GARM,GPARK+10*ZHAT*INCHES),CRLF)
PRINT("QRE",CRLF,ARMREACH(GARM,GPARK+10*ZHAT*INCHES),CRLF)
PRINT("QRE ",ARMREACH(GARM,GPARK+10*ZHAT*INCHES),CRLF)
PRINT("QRE ",ARMREACH(GARM,GPARK+10*ZHAT*INCHES),CRLF)
PRINT("QRE ",ARMREACH(GARM,GPARK+100*ZHAT*INCHES),CRLF)
PRINT("QRE ",ARMREACH(GARM,STATION),CRLF)
PRINT("QRE ",ARMREACH(GARM,BPARK),CRLF)
EXIT
{exiting at 15:59 9 Apr 1981
$FPMAX=0
$INTMAX=5
$PCDMAX=32}
{ continued writing again at 16:00 9 Apr 1981}
MOVE GARM TO GPARK
PRINT("BARM CAN REACH ",ARMREACH(BARM,YPARK));
{PONTY0.DMP[PNT, HE] :16:13 9 Apr 1981 ALIAS [PNT, HE] LOGIN [ 1,MSM]:Shahid}
RESUME_MESSAGE("THIS VERSION INCLUDES DIMENSION CHECKING
");
SAVECOREIMAGE P0
{PONTY0.DMP[PNT, HE] :16:14 9 Apr 1981 ALIAS [PNT, HE] LOGIN [ 1,MSM]:Shahid}
CALIB(GARM)
PRINT(ARMREACH(GARM,GPARK))
PRINT(ARMREACH(GARM,GPARK+10*ZHAT*INCHES))
MOVE GARM TO BPARK
MOVE GARM TO GPARK
MOVE GARM TO GPARK+10*ZHAT*INCHES
MOVE GARM TO GPARK+20*ZHAT*INCHES
MOVE GARM TO GPARK+30*ZHAT*INCHES
MOVE GARM TO GPARK+100*ZHAT*INCHES
MOVE GARM TO GPARK+5*ZHAT*INCHES
MOVE GARM TO GPARK-5*ZHAT*INCHES
SIGNAL TRIGGER
{%%%%% ERROR ::
SIGNAL
TRIGGER
Need identifier here
%%%%%%%%%%%%%%%%%%%%%%%}
EVENT TRIGGER
PROCEDURE G;
MOVE GARM TO GPARK*TRANS(ROT(ZHAT,90),NILVECT*INCHES) WITH DURATION=10*SECONDS ON G DO STOP GARM;
{%%%%% WARNING ::
MOVE GARM TO GPARK*TRANS(ROT(ZHAT,90)
,
NILVECT*INCHES) WITH DURATION=10*SECONDS ON G DO STOP GARM;
Argument 2 must have same dimensions as that of ANGLE
Argument 2 has dimensions: DIMENSIONLESS
ANGLE has dimensions: [ANGLE]↑1
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% ERROR ::
MOVE GARM TO GPARK*TRANS(ROT(ZHAT,90),NILVECT*INCHES) WITH DURATION=10*SECONDS ON
G
DO STOP GARM;
G cannot return a value and cannot be used here
%%%%%%%%%%%%%%%%%%%%%%%}
MOVE GARM TO GPARK*TRANS(ROT(ZHAT,90),NILVECT*INCHES) WITH DURATION=10*SECONDS ON TRIGGER DO STOP GARM;
{%%%%% WARNING ::
MOVE GARM TO GPARK*TRANS(ROT(ZHAT,90)
,
NILVECT*INCHES) WITH DURATION=10*SECONDS ON TRIGGER DO STOP GARM;
Argument 2 must have same dimensions as that of ANGLE
Argument 2 has dimensions: DIMENSIONLESS
ANGLE has dimensions: [ANGLE]↑1
%%%%%%%%%%%%%%%%%%%%%%%}
EVENT TRIGGER2; PROCEDURE G2;MOVE GARM TO GPARK*TRANS(ROT(ZHAT,90),NILVECT*INCHES) WITH DURATION=10*SECONDS ON TRIGGER2 DO STOP GARM;
{%%%%% WARNING ::
EVENT TRIGGER2; PROCEDURE G2;MOVE GARM TO GPARK*TRANS(ROT(ZHAT,90)
,
NILVECT*INCHES) WITH DURATION=10*SECONDS ON TRIGGER2 DO STOP GARM;
Argument 2 must have same dimensions as that of ANGLE
Argument 2 has dimensions: DIMENSIONLESS
ANGLE has dimensions: [ANGLE]↑1
%%%%%%%%%%%%%%%%%%%%%%%}
PROCEDURE B; BEGIN PROMPT("SIGNALLING TRIGGER2"); SIGNAL TRIGGER2; END;
MOVE GARM TO GPARK
MOVE GARM TO GPARK WITH DURATION=3*SECONDS
SIGNAL TRIGGER; G
{%%%%% ERROR ::
SIGNAL TRIGGER; G
UNDECLARED IDENTIFIER G : requires ← or : here
%%%%%%%%%%%%%%%%%%%%%%%}
COBEGIN B;G2; COEND
MOVE GARM TO GPARK; COBEGIN B;G2; COEND
MOVE GARM TO GPARK; COBEGIN B;G2; COEND
MOVE GARM TO GPARK; COBEGIN B;G2; COEND
{PONTY0.DMP[PNT, HE] :16:25 9 Apr 1981 ALIAS [PNT, HE] LOGIN [ 1,MSM]:Shahid}
MOVE BARM TO BPARK
SCALAR I,J;
COBEGIN I←I+1;J←J+1; PRINT(I,J); COEND
COBEGIN I←I+1;J←J+1; PRINT(I,J); COEND
{PONTY0.DMP[PNT, HE] :16:42 9 Apr 1981 ALIAS [PNT, HE] LOGIN [ 1,MSM]:Shahid}
SETSTATUS(NOELF);
SCALAR I,J;
COBEGIN I←1;J←2;PRINT(I,J); COEND;
COBEGIN I←1;J←2;PRINT(I,J); COEND;
{5.N .$↑ [$X , *] :2:25 10 Apr 1981 ALIAS [TMP,MSM] LOGIN [ 1,MSM]:Shahid}
BAIL;
A←1
BEGIN A←1 END
BEGIN B←1 END
{%%%%% ERROR ::
BEGIN B
←
1 END
Cant make implicit declaration inside a block
%%%%%%%%%%%%%%%%%%%%%%%}
B←3;BEGIN B←1 END
BEGIN A←2; B←1 END
COBEGIN A←2; B←1 COEND
{PONTY0.DMP[TMP,MSM] :2:30 10 Apr 1981 ALIAS [TMP,MSM] LOGIN [ 1,MSM]:Shahid}
SAVECOREIMAGE P0
{ continued writing again at 2:31 10 Apr 1981}
BAIL
S←1
BAIL
S←1
BEGIN S←1 END
BAIL
{PONTY0.DMP[TMP,MSM] :2:38 10 Apr 1981 ALIAS [TMP,MSM] LOGIN [ 1,MSM]:Shahid}
BAIL
A←1;B←2; COBEGIN A←1;B←2 COEND
COBEGIN A←3;B←4 COEND
COBEGIN A←1;B←3 COEND
COBEGIN A←1;B←2 COEND
{PONTY0.DMP[TMP,MSM] :3:15 10 Apr 1981 ALIAS [TMP,MSM] LOGIN [ 1,MSM]:Shahid}
BAIL
A←1
COBEGIN A←1;A←2;A←3;A←4;A←5;A←6; COEND
COBEGIN A←1;A←2;A←3;A←4;A←5;A←6 COEND
COBEGIN BEGIN A←1;A←2; END; COBEGIN A←3;A←4 COEND;A←5;A←6 COEND
COBEGIN BEGIN A←1;A←2; END; COBEGIN A←3;A←4 COEND;A←5;A←6 COEND
{PONTY0.DMP[TMP,MSM] :3:20 10 Apr 1981 ALIAS [TMP,MSM] LOGIN [ 1,MSM]:Shahid}
A←1
COBEGIN A←1;A←2;A←3;A←4;A←5;A←6;A←7; COEND
COBEGIN A←1;A←2;A←3;A←4;A←5;A←6;A←7; COEND
COBEGIN A←1;A←2;A←3;A←4;A←5;A←6;A←7; COEND
COBEGIN A←1;A←2;A←3;A←4;A←5;A←6;A←7; COEND
DEFINE FOO=⊂COBEGIN MOVE BARM TO BPARK; MOVE GARM TO GPARK COEND⊃;
FOO
FOO
FOO
FOO
COBEGIN A←1;A←2 COEND
COBEGIN A←1;A←2 COEND
COBEGIN A←1;A←2 COEND
COBEGIN A←1;A←2 COEND
FOO;FOO;FOO;FOO;FOO;FOO;FOO;
{5.N .$↑ [$X , *] :1:42 11 Apr 1981 ALIAS [TMP,MSM] LOGIN [ 1,MSM]:Shahid}
SCALAR I;
COBEGIN I←1;I←2;I←3; COEND
COBEGIN I←1;I←2;I←3; COEND
COBEGIN I←1;I←2;I←3; COEND
COBEGIN I←1;I←2;I←3; COEND
BAIL;
COBEGIN I←1;I←2 COEND
BEGIN I←1;I←2;I←3;I←4; END
BEGIN I←1;I←2;I←3;I←4; END
BEGIN I←1;I←2;I←3;I←4; END
BEGIN I←1;I←2;I←3;I←4; END
BEGIN I←1;I←2;I←3;I←4; END
BEGIN I←1;I←2;I←3;I←4; END
BEGIN I←1;I←2;I←3;I←4; END
BEGIN I←1;I←2;I←3;I←4; END
BEGIN I←1;I←2;I←3;I←4; END
BEGIN I←1;I←2;I←3;I←4; END
BEGIN I←1;I←2;I←3;I←4; END
BEGIN I←1;I←2;I←3;I←4; END
IF TRUE THEN BEGIN I←1;I←2;I←3;I←4; END ELSE
IF TRUE THEN BEGIN I←1;I←2;I←3;I←4; END ;
{5.N .$↑ [$X , *] :1:57 11 Apr 1981 ALIAS [TMP,MSM] LOGIN [ 1,MSM]:Shahid}
I←1;
COBEGIN I←1; PRINT("QRE") COEND
COBEGIN I←1; PRINT("QRE") COEND
COBEGIN I←1; PRINT("QRE") COEND
COBEGIN I←1; PRINT("QRE"); COEND
COBEGIN I←1; PRINT("QRE"); COEND
COBEGIN I←1; PRINT("QRE"); COEND
COBEGIN I←1; PRINT("QRE"); COEND
COBEGIN I←1; PRINT("QRE"); COEND
COBEGIN I←1; PRINT("QRE"); COEND
COBEGIN I←1; I←4;I←5;I←6; PRINT("QRE"); COEND
COBEGIN I←1; I←4;I←5;I←6; PRINT("QRE"); COEND
COBEGIN I←1; I←4;I←5;I←6; PRINT("QRE"); COEND
COBEGIN I←1; I←4;I←5;I←6; PRINT("QRE"); COEND
COBEGIN I←1; I←4;I←5;I←6; PRINT("QRE"); COEND
COBEGIN I←1; I←4;I←5;I←6; PRINT("QRE"); COEND
COBEGIN I←1; I←4;I←5;I←6; PRINT("QRE"); COEND
COBEGIN I←1; I←4;I←5;I←6; PRINT("QRE"); COEND
COBEGIN I←0;I←7;I←1; I←4;I←5;I←6; PRINT("QRE"); COEND
COBEGIN I←0;I←7;I←1; I←4;I←5;I←6; PRINT("QRE"); COEND
COBEGIN I←0;I←7;I←1; I←4;I←5;I←6; PRINT("QRE"); COEND
COBEGIN I←0;I←5;I←6; PRINT("QRE"); COEND
COBEGIN I←0;I←5;I←6; PRINT("QRE"); COEND
COBEGIN I←0;I←5;I←6; PRINT("QRE"); COEND
COBEGIN I←0;I←5;I←6; PRINT("QRE"); COEND
COBEGIN I←0;I←5;I←6; PRINT("QRE"); COEND
COBEGIN I←0;I←5;I←6; PRINT("QRE"); COEND
EXIT
{exiting at 2:01 11 Apr 1981
$FPMAX=0
$INTMAX=0
$PCDMAX=70}
{PONTY0.DMP[TMP,MSM] :2:18 11 Apr 1981 ALIAS [TMP,MSM] LOGIN [ 1,MSM]:Shahid}
COBEGIN PRINT("QRE");PRINT("QRE");PRINT("QRE"); COEND
COBEGIN PRINT("QRE");PRINT("QRE");PRINT("QRE"); COEND
DEFINE FOO=⊂COBEGIN PRINT("QRE");PRINT("QRE");PRINT("QRE"); COEND⊃;
FOO;FOO;FOO;FOO;FOO;FOO;FOO;FOO;FOO;FOO;FOO
BAIL
FOO
EDIT FOO
FOO;FOO;FOO;FOO;FOO;FOO;FOO;FOO;
FOO;FOO;FOO;FOO;FOO;FOO;FOO;FOO;
DEFINE FOO1=⊂FOO;FOO;FOO;FOO;FOO;FOO;FOO;FOO;⊃;
FOO1
FOO1;FOO1;FOO1;FOO1;FOO1;FOO1;FOO1;FOO1;FOO1;
DEFINE FOO2
{PONTY5.DMP[PNT, HE] :12:57 11 Apr 1981 ALIAS [ 1,MSM] LOGIN [ 1,MSM]:Shahid}
B1←BARM
B2←BARM
PRINT(ARMREACH(BARM,B2));
{%%%%% ERROR ::
PRINT(
ARMREACH
(BARM,B2));
UNEXPECTED TOKEN FOUND ⊂ARMREACH⊃
%%%%%%%%%%%%%%%%%%%%%%%}
MOVE BARM TO B1 WITH DURATION=6*SECONDS
MOVE BARM TO B2 WITH DURATION=3*SECONDS
MOVE BARM TO B1 WITH DURATION=3*SECONDS
MOVE BARM TO B2 WITH DURATION=3*SECONDS
MOVE BARM TO B1 WITH DURATION=3*SECONDS
B3←BARM
MOVE BARM TO B1
MOVE BARM TO B3
MOVE BARM TO B1 WITH DURATION=2*SECONDS
MOVE BARM TO B3 WITH DURATION=2*SECONDS
MOVE BARM TO B1 WITH DURATION=20SECONDS
{%%%%% ERROR ::
MOVE BARM TO B1 WITH DURATION=
20
SECONDS
SCANNER ERROR: 20SECONDS is an invalid identifier and number
%%%%%%%%%%%%%%%%%%%%%%%}
MOVE BARM TO B1 WITH DURATION=2*SECONDS
MOVE BARM TO B2 WITH DURATION=2*SECONDS
MOVE BARM TO B1 WITH DURATION=2*SECONDS
B2←BARM
MOVE BARM TO B1 WITH DURATION=2*SECONDS
MOVE BARM TO B2 WITH DURATION=2*SECONDS
MOVE BARM TO B1 WITH DURATION=2*SECONDS
MOVE BARM TO B2 WITH DURATION=2*SECONDS
MOVE BARM TO B2 WITH DURATION=2*SECONDS
MOVE BARM TO B1 WITH DURATION=2*SECONDS
MOVE BARM TO B2 WITH DURATION=2*SECONDS
MOVE BARM TO B2 WITH DURATION=2*SECONDS
MOVE BARM TO B1 WITH DURATION=2*SECONDS
MOVE BARM TO B2 WITH DURATION=9*SECONDS
MOVE BARM TO B2 WITH DURATION=2*SECONDS
MOVE BARM TO B1 WITH DURATION=2*SECONDS
MOVE BARM TO B2 WITH DURATION=2*SECONDS
EDIT B1
{%%%%% WARNING ::
FRAME(ROT(ZHAT,-25.0*DEG)*ROT(YHAT,87.7*DEG)*ROT(ZHAT,-5.7*DEG),(57.55,44.35,20.61))
Dimensions of left hand and right hand sides are incompatible
LHS has dimensions: [DISTANCE]↑1
RHS has dimensions: DIMENSIONLESS
%%%%%%%%%%%%%%%%%%%%%%%}
EDIT B2
{%%%%% WARNING ::
FRAME(ROT(ZHAT,8.7*DEG)*ROT(YHAT,88.0*DEG)*ROT(ZHAT,-6.4*DEG),(56.37,61.00,20.52))
Dimensions of left hand and right hand sides are incompatible
LHS has dimensions: [DISTANCE]↑1
RHS has dimensions: DIMENSIONLESS
%%%%%%%%%%%%%%%%%%%%%%%}
WRITE B1,B2 INTO A13.PNT
CALIB(GARM)
MOVE GARM TO GPARK
PJOINT(GARM)
PJOINT(GARM)
PJOINT(GARM)
PJOINT(GARM)
CLOSE GHAND TO 0*INCHES
OPEN GHAND TO 1*INCH
CLOSE GHAND TO 1*INCH
{PONTY0.DMP[PNT, HE] :13:16 11 Apr 1981 ALIAS [TMP,MSM] LOGIN [ 1,MSM]:Shahid}
CALIB(GARM)
OPEN GHAND TO 1*INCH
OPEN GHAND TO 0*INCH
OPEN GHAND TO 1*INCH
OPEN GHAND TO 0*INCH
G1←GARM
MOVE GARM TO GPARK
MOVE GARM TO G1
EXIT
{exiting at 13:25 11 Apr 1981
$FPMAX=0
$INTMAX=5
$PCDMAX=27}
{PONTY5.DMP[PNT, HE] :13:28 11 Apr 1981 ALIAS [ 1,MTC] LOGIN [ 1,MTC]:MTC}
HELP
DONE
{%%%%% ERROR ::
DONE
UNDECLARED IDENTIFIER DONE : requires ← or : here
%%%%%%%%%%%%%%%%%%%%%%%}
QUIT
{%%%%% ERROR ::
QUIT
QUIT:: is a debug command and is valid only in debug mode
%%%%%%%%%%%%%%%%%%%%%%%}
END
{%%%%% ERROR ::
END
END:: is valid only inside a block
%%%%%%%%%%%%%%%%%%%%%%%}
EXIT
{exiting at 13:37 11 Apr 1981
$FPMAX=0
$INTMAX=5
$PCDMAX=27}
{PONTY5.DMP[PNT, HE] :13:48 11 Apr 1981 ALIAS [TMP,MSM] LOGIN [ 1,MSM]:Shahid}
CALIB(GARM)
READ A13DEF[TMP,MSM
{%%%%% ERROR ::
A13DEF[TMP,MSM] is nonexistent
%%%%%%%%%%%%%%%%%%%%%%%}
READ A13DEF[TMP,MSM
MOVE GARM TO GPARK WITH DURATION=3*SEC;
MOVE TIP TO START_TIP WITH DURATION=5*SEC;
PJOINT(GARM)
PJOINT(GARM)
{PONTY5.DMP[PNT, HE] :14:00 11 Apr 1981 ALIAS [TMP,MSM] LOGIN [ 1,MSM]:Shahid}
CALIB(GARM)
PFREE(GARM)
PJOINT(GARM)
CLOSE GHAND TO 0*INCH
PJOINT
{%%%%% ERROR ::
PJOINT
⊂(⊃ is required here
%%%%%%%%%%%%%%%%%%%%%%%}
PJOINT(GARM)
PTABLE(GARM)
FRAME TIP
AFFIX TIP TO GARM AT TRANS(NILROT,-2*XHAT*INCH)
START_TIP ← TIP
MOVE GARM TO TIP WITH DURATION=3*SEC
MOVE TIP TO START_TIP;
MOVE TIP TO START_TIP*TRANS(ROT(ZHAT,40*DEG),NILVECT*INCH);
WRITE ALL INTO A13DEF[TMP,MSM
PRINT(START_TIP)
PRINT(START_TIP)
SHOW START_TIP
EXIT
{exiting at 14:13 11 Apr 1981
$FPMAX=6
$INTMAX=5
$PCDMAX=39}
{PONTY5.DMP[PNT, HE] :11:59 13 Apr 1981 ALIAS [DEM, HE] LOGIN [ 1, RV]:Rick}
READ SPRDEF.AL
OPEN BHAND TO 1*INCH
MOVE BARM TO BPARK
MOVE BARM TO STEM_TOUCH
MOVE BARM TO STEM_FINAL WITH DURATION=3*SEC
MOVE BARM TO STEM_IN WITH DURATION=3*SEC
MOVE BARM TO STEM_TOUCH
MOVE BARM TO STEM_TOUCH WITH DURATION=1*SEC
MOVE BARM TO STEM_FINAL WITH DURATION=1*SEC
MOVE BARM TO STEM_IN WITH DURATION=1*SEC
MOVE BARM TO BPARK
MOVE BARM TO STEM_TOUCH WITH DURATION=2*SEC
MOVE BARM TO STEM_FINAL WITH DURATION=2*SEC
MOVE BARM TO STEM_IN WITH DURATION=2*SEC
MOVE BARM TO STEM_TOUCH WITH DURATION=2*SEC
STEM_TOUCH ← BARM
STEM_FINAL ← BARM
MOVE BARM TO STEM_TOUCH
MOVE BARM TO BPARK
MOVE BARM TO STEM_TOUCH DIRECTLY VIA STEM_TOUCH*TRANS(NILROT,-2*ZHAT*INCH)
STEM_TOUCH←BARM
STEM_FINAL ← BARM
UPDATE
UPDATE
STEM_IN ← BARM
UPDATE
UPDATE
UPDATE
UPDATE
SHOW FRAMES
{%%%%% ERROR ::
SHOW
FRAMES
SHOW: Need a macro, procedure or variable name after SHOW
%%%%%%%%%%%%%%%%%%%%%%%}
DISPLAY FRAMES
WRITE ALL INTO SPRDEF.AL
SCALAR DELTA
DELTA ← (POS(STEM_IN)-POS(STEM_FINAL)).(ZHA WRT STEM_FINAL)
{%%%%% ERROR ::
DELTA ← (POS(STEM_IN)-POS(STEM_FINAL)).(
ZHA
WRT STEM_FINAL)
UNEXPECTED TOKEN FOUND ⊂ZHA⊃
%%%%%%%%%%%%%%%%%%%%%%%}
DELTA ← (POS(STEM_IN)-POS(STEM_FINAL)).(ZHAT WRT STEM_FINAL)
{%%%%% WARNING ::
DELTA ← (POS(STEM_IN)-POS(STEM_FINAL)).(ZHAT WRT STEM_FINAL
)
Argument 2 must have same dimensions as that of argument 1
Argument 2 has dimensions: [DISTANCE]↑1
argument 1 has dimensions: DIMENSIONLESS
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% WARNING ::
DELTA ← (POS(STEM_IN)-POS(STEM_FINAL)).(ZHAT WRT STEM_FINAL)
Dimensions of left hand and right hand sides are incompatible
LHS has dimensions: DIMENSIONLESS
RHS has dimensions: [DISTANCE]↑2
%%%%%%%%%%%%%%%%%%%%%%%}
PRINT (DELTA);
OPEN BHAND TO 2*INCH
MOVE BARM TO BPARK VIA BARM*TRANS(NILROT,-3*ZHAT*INCH)
EXIT
{exiting at 12:36 13 Apr 1981
$FPMAX=90
$INTMAX=5
$PCDMAX=57}
{PONTY5.DMP[PNT, HE] :13:05 13 Apr 1981 ALIAS [DEM, HE] LOGIN [ 1, RV]:Rick}
QREAD FOO2.PNT[TMP,MSM]
CALIB(GARM)
MOVE GARM TO START_TIP
PJOINT(GARM)
CLOSE GHAND TO 0*INCH
PJOINT(GARM)
MOVE GARM TO TIP WITH DURATION=3*SEC
OPEN GHAND TO 1*INCH
CLOSE GHAND TO 0*INCH
NEW_TIP ← TIP*TRANS(ROT(YHAT,-50*DEG),NILVECT)*INVTRANS;
{%%%%% WARNING ::
NEW_TIP ← TIP*TRANS(ROT(YHAT,-50*DEG),NILVECT)
*
INVTRANS;
Argument 2 must have same dimensions as that of argument 1
Argument 2 has dimensions: DIMENSIONLESS
argument 1 has dimensions: [DISTANCE]↑1
%%%%%%%%%%%%%%%%%%%%%%%}
MOVE GARM TO NEW_TIP WITH DURATION=3*SEC
MOVE GARM TO START_TIP WITH DURATION=10*SEC
OPEN GHAND TO 1*INCH
PJOINT(GARM)
CLOSE GHAND TO 0*INCH
OPEN GHAND TO 1*INCH
CLOSE GHAND TO 0*INCH
OPEN GHAND TO 1*INCH
CLOSE GHAND TO 0*INCH
DEFINE CLOSEG=⊂CLOSE GHAND TO 0*INCH⊃
DEFINE OPENG=⊂OPEN GHAND TO 1*INCH⊃
PJOINT(GARM)
GLASS_HOLD←BARM
CUSTOMER←BARM
CUSTOMER1←BARM
MOVE BARM TO GLASS_HOLD
MOVE BARM TO CUSTOMER1 SLOWLY
{%%%%% ERROR ::
MOVE BARM TO CUSTOMER1
SLOWLY
Need ; or carriage return here
%%%%%%%%%%%%%%%%%%%%%%%}
MOVE BARM TO GLASS_HOLD
MOVE BARM TO CUSTOMER WITH DURATION=3*SEC
MOVE BARM TO CUSTOMER WITH DURATION=3*SEC
MOVE BARM TO CUSTOMER WITH DURATION=2*SEC
MOVE BARM TO CUSTOMER WITH DURATION=1.5*SEC
MOVE BARM TO CUSTOMER WITH DURATION=1*SEC
MOVE BARM TO CUSTOMER
MOVE BARM TO CUSTOMER WITH DURATION=0.9*SEC
DISPLAY FRAMES
SHOW BARM
SHOW BARM,GLASS_HOLD
GLASS_DROP ←BARM
MOVE BARM TO GLASS_HOLD
MOVE BARM TO GLASS_DROP WITH DURATION=3*SEC
MOVE BARM TO GLASS_HOLD WITH DURATION=3*SEC
MOVE BARM TO GLASS_DROP WITH DURATION=3*SEC
OPEN BHAND TO 1*INCH
MOVE BARM TO BARM*TRANS(NILROT,-4*ZHAT*INCH) WITH DURATION=3*SEC
WRITE ALL INTO A13DEF.AL
PJOINT(GARM)
PTABLE(GARM)
BOTTLE_GET ← GARM
WRITE BOTTLE_GET INTO A13DEF.AL
OPEN GHAND TO 1*INCH
EXIT
{exiting at 13:59 13 Apr 1981
$FPMAX=90
$INTMAX=5
$PCDMAX=56}
{PONTY5.DMP[PNT, HE] :14:07 13 Apr 1981 ALIAS [TMP,MSM] LOGIN [ 1, RV]:Shahid}
CALIB(GARM)
QREAD A13DEF.AL
MOVE GARM TO START_TIP WITH DURATION=4*SEC
PJOINT(GARM)
CLOSE GHAND TO 0*INCH
PJOINT(GARM)
TIP←GARM
WRITE TIP INTO A13DEF.AL
TIP2←TIP*TRANS(NILROT,-2*XHAT*INCH)
WRITE TIP2 INTO A13DEF.AL
{%%%%% ERROR ::
WRITE TIP2 INTO A13DEF.AL
A13DEF.AL is busy
%%%%%%%%%%%%%%%%%%%%%%%}
WRITE TIP2 INTO A13DEF.AL
OPEN GHAND TO 1*INCH
MOVE GARM TO BOTTLE_GET WITH DURATION=4*SEC
SHOW BOTTLE_GET
CLOSE GHAND TO 0*INCH
MOVE GARM TO START_TIP WITH DURATION=10*SEC
OPEN GHAND TO 1*INCH
EXIT
{exiting at 14:26 13 Apr 1981
$FPMAX=6
$INTMAX=5
$PCDMAX=56}
{PONTY5.DMP[PNT, HE] :14:34 13 Apr 1981 ALIAS [TMP,MSM] LOGIN [ 1, RV]:Shahid}
QREAD A13DEF.AL
{%%%%% ERROR ::
A13DEF.AL[TMP,MSM] PAGE 2 LINE 3
DISTANCE TRANS
INVTRANS
;
undeclared identifier required
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% ERROR ::
A13DEF.AL[TMP,MSM] PAGE 2 LINE 6
FRAME
TIP
;
undeclared identifier required
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% ERROR ::
A13DEF.AL[TMP,MSM] PAGE 2 LINE 10
FRAME
START_TIP
;
undeclared identifier required
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% ERROR ::
A13DEF.AL[TMP,MSM] PAGE 2 LINE 13
FRAME
FINAL_TIP
;
undeclared identifier required
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% ERROR ::
A13DEF.AL[TMP,MSM] PAGE 2 LINE 16
FRAME
GLASS_DROP
;
undeclared identifier required
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% ERROR ::
A13DEF.AL[TMP,MSM] PAGE 2 LINE 20
FRAME
CUSTOMER
;
undeclared identifier required
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% ERROR ::
A13DEF.AL[TMP,MSM] PAGE 2 LINE 24
FRAME
GLASS_HOLD
;
undeclared identifier required
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% ERROR ::
A13DEF.AL[TMP,MSM] PAGE 2 LINE 27
FRAME
BOTTLE_GET
;
undeclared identifier required
%%%%%%%%%%%%%%%%%%%%%%%}
DELETE ALL
QREAD A13DEF.AL
{%%%%% ERROR ::
A13DEF.AL is busy
%%%%%%%%%%%%%%%%%%%%%%%}
QREAD A13DEF.AL
MOVE BARM TO BPARK
MOVE BARM TO CUSTOMER
MOVE BARM TO GLASS_HOLD
CUSTOMER←BARM
SHOW CUSTOMER
PRINT(CUSTOMER)
MOVE BARM TO BPARK
MOVE BARM TO CUSTOMER
WRITE CUSTOMER INTO A13DEF.AL
QREAD FOO2.PNT
MOVE BARM TO CUSTOMER
CALIB(GARM)
MOVE GARM TO START_TIP
MOVE GARM TO BOTTLE_GET
CALIB(GARM)
MOVE GARM TO BOTTLE_GET
MOVE GARM TO BOTTLE_GET
MOVE GARM TO START_TIP
MOVE GARM TO FINAL_TIP SLOWLY
{%%%%% ERROR ::
MOVE GARM TO FINAL_TIP
SLOWLY
Need ; or carriage return here
%%%%%%%%%%%%%%%%%%%%%%%}
MOVE GARM TO START_TIP
MOVE GARM TO TIP*TRANS(ROT(ZHAT,30*DEG),NILVECT*INCH)*INVTRANS
MOVE GARM TO TIP*TRANS(ROT(ZHAT,60*DEG),NILVECT*INCH)*INVTRANS
MOVE GARM TO TIP*TRANS(ROT(ZHAT,90*DEG),NILVECT*INCH)*INVTRANS
MOVE GARM TO TIP*TRANS(ROT(ZHAT,0*DEG),NILVECT*INCH)*INVTRANS
MOVE GARM TO TIP*TRANS(ROT(ZHAT,100*DEG),NILVECT*INCH)*INVTRANS WITH DURATION=5*SECONDS
MOVE GARM TO TIP*TRANS(ROT(ZHAT,0*DEG),NILVECT*INCH)*INVTRANS WITH DURATION=5*SECONDS
MOVE GARM TO TIP*TRANS(ROT(ZHAT,90*DEG),NILVECT*INCH)*INVTRANS WITH DURATION=5*SECONDS
EXIT
{exiting at 14:54 13 Apr 1981
$FPMAX=6
$INTMAX=5
$PCDMAX=56}
{PONTY0.DMP[TMP,MSM] :21:20 13 Apr 1981 ALIAS [TMP,MSM] LOGIN [ 1,MSM]:Shahid}
SHOW BARM,BHAND
SHOW GARM
SHOW GPARK
G2←GPARK+4*XHAT*INCHES
SHOW GPARK,G2
EXIT
{exiting at 21:21 13 Apr 1981
$FPMAX=12
$INTMAX=5
$PCDMAX=27}
{PONTY0.DMP[PNT, HE] :22:38 13 Apr 1981 ALIAS [PNT, HE] LOGIN [ 1,MSM]:Shahid}
RESUME_MESSAGE("VERSION INCLUDES DIMENSION CHECKING
");
SAVECOREIMAGE P0
{ continued writing again at 22:40 13 Apr 1981}
EXIT
{exiting at 22:42 13 Apr 1981
$FPMAX=0
$INTMAX=5
$PCDMAX=27}
{PONTY0.DMP[PNT, HE] :22:42 13 Apr 1981 ALIAS [PNT, HE] LOGIN [ 1,MSM]:Shahid}
SHOW GARM,GPARK
EXIT
{exiting at 22:42 13 Apr 1981
$FPMAX=12
$INTMAX=5
$PCDMAX=27}
{PONTY0.DMP[PNT, HE] :22:54 13 Apr 1981 ALIAS [PNT, HE] LOGIN [ 1,MSM]:Shahid}
RESUME_MESSAGE("VERSION INCLUDES DIMENSION CHECKING
");
SAVECOREIMAGE P0
{ continued writing again at 22:55 13 Apr 1981}
EXIT
{exiting at 22:56 13 Apr 1981
$FPMAX=0
$INTMAX=5
$PCDMAX=27}
{PONTY0.DMP[PNT, HE] :22:56 13 Apr 1981 ALIAS [PNT, HE] LOGIN [ 1,MSM]:Shahid}
T←ARMREACH(BARM,BPARK)
SHOW T; T←ARMREACH(BARM,BPARK)
T←ARMREACH(BARM,BPARK)
T←ARMREACH(BARM,STATION)
T←ARMREACH(YARM,STATION)
T←1
T←23
SHOW T
SHOW BHAND
SHOW YHAND
{PONTY0.DMP[TMP,MSM] :23:35 13 Apr 1981 ALIAS [TMP,MSM] LOGIN [ 1,MSM]:Shahid}
SHOW SCALAR
{%%%%% ERROR ::
SHOW
SCALAR
SHOW: Need a macro, procedure or variable name after SHOW
%%%%%%%%%%%%%%%%%%%%%%%}
T←23 SCALAR
{%%%%% ERROR ::
T←23
SCALAR
Need ; or carriage return here
%%%%%%%%%%%%%%%%%%%%%%%}
SHOW TCALAR
{%%%%% ERROR ::
SHOW
TCALAR
SHOW: Need a macro, procedure or variable name after SHOW
%%%%%%%%%%%%%%%%%%%%%%%}
T← 23; SHOW T
B
{%%%%% ERROR ::
B
UNDECLARED IDENTIFIER B : requires ← or : here
%%%%%%%%%%%%%%%%%%%%%%%}
BAIL;
T←23
{5.N .$↑ [$X , *] :23:53 13 Apr 1981 ALIAS [TMP,MSM] LOGIN [ 1,MSM]:Shahid}
T←34
SHOW T
T←ARMREACH(BARM,BPARK)
T←ARMREACH(BARM,YPARK)
EXIT
{exiting at 23:54 13 Apr 1981
$FPMAX=1
$INTMAX=5
$PCDMAX=27}
{PONTY0.DMP[PNT, HE] :23:57 13 Apr 1981 ALIAS [PNT, HE] LOGIN [ 1,MSM]:Shahid}
RESUME_MESSAGE("VERSION DOES DIMENSION CHECKING
");
DISPLAY FRAMES
NODISPLAY
SAVECOREIMAGE P0
{PONTY0.DMP[PNT, HE] :23:59 13 Apr 1981 ALIAS [PNT, HE] LOGIN [ 1,MSM]:Shahid}
DISPLAY SCALARS
T←ARMREACH(BARM,BPARK)
T←ARMREACH(BARM,GPARK)
EXIT
{exiting at 0:02 14 Apr 1981
$FPMAX=54
$INTMAX=5
$PCDMAX=33}
{PONTY0.DMP[PNT, HE] :3:56 14 Apr 1981 ALIAS [THE,MSM] LOGIN [ 1,MSM]:Shahid}
W←BARM
EDIT W
{PONTY0.DMP[PNT, HE] :16:19 14 Apr 1981 ALIAS [PNT, HE] LOGIN [ 1,MSM]:Shahid}
VT05_OFF;
LABEL L1;
T←1
L1: ON DURATION>5*SECOND DO BEGIN PRINT("I AM STILL ALIVE"); ENABLE L1; END;
DISABLE L1
L2: ON DURATION>5*SECOND DO BEGIN PRINT("
{%%%%% ERROR ::
L2
:
ON DURATION>5*SECOND DO BEGIN PRINT("
can't handle undeclared labels yet
%%%%%%%%%%%%%%%%%%%%%%%}
LABEL L2;
L2: ON DURATION>5*SECONDS DO BEGIN PRINT("
L2 IS STILL ALIVE"); ENABLE L2; END;
DISABLE L2
LABLE L3;
{%%%%% ERROR ::
LABLE
L3
;
UNDECLARED IDENTIFIER LABLE : requires ← or : here
%%%%%%%%%%%%%%%%%%%%%%%}
LABEL L3
VECTOR F,T; L3:ON DURATION>.1*SECOND DO BEGIN WRIST(F,T);
{%%%%% ERROR ::
VECTOR F,
T
; L3:ON DURATION>.1*SECOND DO BEGIN WRIST(F,T);
undeclared identifier required
%%%%%%%%%%%%%%%%%%%%%%%}
DELETE F
{%%%%% ERROR ::
DELETE
F
DELETE: unknown token F
%%%%%%%%%%%%%%%%%%%%%%%}
DELETE T
VECTOR F,T;
L3:ON DURATION>.1*SECOND DO BEGIN WRIST(F,T);
PRINT(CRLF,F,T); END;
SETBASE
LABEL L4;
L4: ON DURATION>.1*SECOND DO BEGIN WRIST(F,T);
PRINT(CRLF,F,T);
ENABLE L4; END;
SETBASE
CALIB(GARM);
MOVE GARM TO GPARK-10*ZHAT*INCHES
MOVE GARM TO GARM-10*XHAT*INCHES
MOVE GARM TO GARM-10*XHAT*INCHES
MOVE GARM TO GARM-4*ZHAT*INCHES
ENABLE L4
LABEL L5;
L5: ON DURATION>.1*SECOND DO BEGIN WRIST(F,T); PRINT(CRLF,F,T); ENABLE L5; END;
MOVE GARM TO GARM-5*ZHAT*INCHES
MOVE GARM TO GARM-5*ZHAT*INCHES VIA GARM WITH DURATION=5*SECONDS
ENABLE L5
LABLE L6
{%%%%% ERROR ::
LABLE
L6
UNDECLARED IDENTIFIER LABLE : requires ← or : here
%%%%%%%%%%%%%%%%%%%%%%%}
LABEL L6
L6: ON DURATION>1 *SECOND DO PRINT("L6 IS STILL ALIVE
"); ENABLE L6 END
{%%%%% ERROR ::
"); ENABLE L6
END
Need ; or carriage return here
%%%%%%%%%%%%%%%%%%%%%%%}
LABEL L7; L7:ON DURATION>1*SECOND DO BEGIN PRINT("L7 IS STILL ALIVE
"); ENABLE L7; END
ENABLE L1
ENABLE L2
ENABLE L3
ENABLE L4
ENABLE L5
ENABLE L6
DISABLE L1
DISABLE L2
LABEL M1;
M1: ON DURATION>.1*SECOND DO BEGIN WRIST(F,T); PRINT(CRLF,F,T); ENABLE M1; END
SETBASE
ENABLE M1
ENABLE M1
ENABLE M1
ENABLE M1
ENABLE M1
ENABLE M1
MOVE GARM TO GPARK
ENABLE M2;
{%%%%% ERROR ::
ENABLE
M2
;
Need identifier here
%%%%%%%%%%%%%%%%%%%%%%%}
ENABLE M1
MOVE GARM VIA GPARK-10*ZHAT*INCHES,GPARK,GPARK-10*ZHAT*INCHES TO GPARK
MOVE GARM TO TRANS(ROT(YHAT,10*DED),NILVECT*INCHES)*GPARK
{%%%%% ERROR ::
MOVE GARM TO TRANS(ROT(YHAT,10*
DED
),NILVECT*INCHES)*GPARK
UNEXPECTED TOKEN FOUND ⊂DED⊃
%%%%%%%%%%%%%%%%%%%%%%%}
MOVE GARM TO TRANS(ROT(YHAT,10*DEG),NILVECT*INCHES)*GPARK
MOVE GARM TO GPARK
MOVE GARM TO TRANS(ORIENT(GPARK)*(YHAT,10*DEG),POS(GPARK))
MOVE GARM TO TRANS(ORIENT(GPARK)*(YHAT,-10*DEG),POS(GPARK))
MOVE GARM TO GPARK-10*ZHAT*INCHES-5*XHAT*INCHES
MOVE GARM TO GPARK-10*ZHAT*INCHES-5*XHAT*INCHES
MOVE GARM TO GPARK-10*ZHAT*INCHES+5*XHAT*INCHES
MOVE GARM TO GPARK-(10*ZHAT*INCHES+5*XHAT*INCHES)*0
MOVE GARM TO GPARK-10*ZHAT*INCHES+5*XHAT*INCHES
MOVE GARM TO GPARK
MOVE BARM TO BPARK
EXIT
{exiting at 16:49 14 Apr 1981
$FPMAX=54
$INTMAX=5
$PCDMAX=56}
{PONTY0.DMP[PNT, HE] :16:58 15 Apr 1981 ALIAS [ AL,BIS] LOGIN [ 1,BIS]:Barry}
READ TEST09;
{%%%%% WARNING ::
TEST09.[AL,BIS] PAGE 1 LINE 16
WITH DURATION = 1
;
Dimensional incompatibility in DURATION clause
Your value has dimensions: DIMENSIONLESS
Desired value has dimensions: [TIME]↑1
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% WARNING ::
TEST09.[AL,BIS] PAGE 1 LINE 18
MOVE BARM TO TEMP DIRECTLY WITH DURATION = 2.0
;
Dimensional incompatibility in DURATION clause
Your value has dimensions: DIMENSIONLESS
Desired value has dimensions: [TIME]↑1
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% WARNING ::
TEST09.[AL,BIS] PAGE 1 LINE 19
MOVE BARM TO GET + 3.0*ZHAT*INCHES DIRECTLY WITH DURATION = 3.0
;
Dimensional incompatibility in DURATION clause
Your value has dimensions: DIMENSIONLESS
Desired value has dimensions: [TIME]↑1
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% WARNING ::
TEST09.[AL,BIS] PAGE 1 LINE 20
MOVE BARM TO GET DIRECTLY WITH DURATION = 3.0
;
Dimensional incompatibility in DURATION clause
Your value has dimensions: DIMENSIONLESS
Desired value has dimensions: [TIME]↑1
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% WARNING ::
TEST09.[AL,BIS] PAGE 1 LINE 22
MOVE BARM TO GET + 3.0*ZHAT*INCHES DIRECTLY WITH DURATION = 3.0
;
Dimensional incompatibility in DURATION clause
Your value has dimensions: DIMENSIONLESS
Desired value has dimensions: [TIME]↑1
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% WARNING ::
TEST09.[AL,BIS] PAGE 1 LINE 23
MOVE BARM TO PUT + 3.0*ZHAT*INCHES DIRECTLY WITH DURATION = 3.0
;
Dimensional incompatibility in DURATION clause
Your value has dimensions: DIMENSIONLESS
Desired value has dimensions: [TIME]↑1
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% WARNING ::
TEST09.[AL,BIS] PAGE 1 LINE 25
ON
FORCE(ZHAT)≥15 DO STOP BARM;
Dimensional incompatibility in DURATION clause
Your value has dimensions: DIMENSIONLESS
Desired value has dimensions: [TIME]↑1
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% WARNING ::
TEST09.[AL,BIS] PAGE 1 LINE 25
ON FORCE(ZHAT)≥15
DO
STOP BARM;
Dimensional incompatibility in FORCE condition monitor
Desired value has dimensions: [FORCE]↑1
Your value has dimensions: DIMENSIONLESS
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% WARNING ::
TEST09.[AL,BIS] PAGE 1 LINE 27
MOVE BARM TO PUT + 3.0*ZHAT*INCHES DIRECTLY WITH DURATION = 3.0
;
Dimensional incompatibility in DURATION clause
Your value has dimensions: DIMENSIONLESS
Desired value has dimensions: [TIME]↑1
%%%%%%%%%%%%%%%%%%%%%%%}
EXIT
{exiting at 17:01 15 Apr 1981
$FPMAX=54
$INTMAX=5
$PCDMAX=339}
{PONTY0.DMP[PNT, HE] :17:04 15 Apr 1981 ALIAS [ AL,BIS] LOGIN [ 1,BIS]:Barry}
QREAD TEST09;
FOO;
TRANSFER(PUT,GET);
{%%%%% ERROR ::
TRANSFER
(
PUT,GET);
UNDECLARED IDENTIFIER TRANSFER : requires ← or : here
%%%%%%%%%%%%%%%%%%%%%%%}
QREAD TEST10;
{%%%%% WARNING ::
TEST10.[AL,BIS] PAGE 1 LINE 5
MOVE BARM TO ORIG DIRECTLY WITH DURATION = 3
;
Dimensional incompatibility in DURATION clause
Your value has dimensions: DIMENSIONLESS
Desired value has dimensions: [TIME]↑1
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% WARNING ::
TEST10.[AL,BIS] PAGE 1 LINE 7
MOVE BARM TO ORIG+3*ZHAT*INCHES DIRECTLY WITH DURATION = 3
;
Dimensional incompatibility in DURATION clause
Your value has dimensions: DIMENSIONLESS
Desired value has dimensions: [TIME]↑1
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% WARNING ::
TEST10.[AL,BIS] PAGE 1 LINE 8
MOVE BARM TO DEST+3*ZHAT*INCHES DIRECTLY WITH DURATION = 3
;
Dimensional incompatibility in DURATION clause
Your value has dimensions: DIMENSIONLESS
Desired value has dimensions: [TIME]↑1
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% WARNING ::
TEST10.[AL,BIS] PAGE 1 LINE 10
ON
FORCE(ZHAT)≥15 DO STOP BARM;
Dimensional incompatibility in DURATION clause
Your value has dimensions: DIMENSIONLESS
Desired value has dimensions: [TIME]↑1
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% WARNING ::
TEST10.[AL,BIS] PAGE 1 LINE 10
ON FORCE(ZHAT)≥15
DO
STOP BARM;
Dimensional incompatibility in FORCE condition monitor
Desired value has dimensions: [FORCE]↑1
Your value has dimensions: DIMENSIONLESS
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% WARNING ::
TEST10.[AL,BIS] PAGE 1 LINE 12
MOVE BARM TO DEST+3*ZHAT*INCHES DIRECTLY WITH DURATION = 3
;
Dimensional incompatibility in DURATION clause
Your value has dimensions: DIMENSIONLESS
Desired value has dimensions: [TIME]↑1
%%%%%%%%%%%%%%%%%%%%%%%}
TRANSFER(PUT,GET);
SCALAR I;
FOR I ← 1 STEP 1 UNTIL 10 DO
BEGIN TRANSFER(GET,PUT); TRANSFER(PUT,GET); END;
<ESCAPE> I termination
EXIT
{exiting at 17:24 15 Apr 1981
$FPMAX=54
$INTMAX=5
$PCDMAX=375}
{PONTY0.DMP[PNT, HE] :13:25 22 Apr 1981 ALIAS [ 1,MSM] LOGIN [ 1,MSM]:Shahid}
CALIB(GREEN)
{%%%%% ERROR ::
CALIB(
GREEN
)
⊂RARM⊃ or ⊂GARM⊃ is required here
%%%%%%%%%%%%%%%%%%%%%%%}
CALIB(GARM)
PGRAV(GARM)
MOVE GARM TO GPARK
EXIT
{exiting at 13:31 22 Apr 1981
$FPMAX=54
$INTMAX=5
$PCDMAX=33}
{PONTY0.DMP[PNT, HE] :14:12 28 Apr 1981 ALIAS [THE,MSM] LOGIN [ 1,MSM]:Shahid}
MOVE BARM TO BPARK
MOVE BARM TO BPARK+3*YHAT*INCHES
MOVE BARM TO BPARK+3*XHAT*INCHES
B0←BARM
B1←BARM
OPEN BHAND TO 3*INCHES
MOVE BARM VIA B1+3*ZHAT*INCHES,B0+3*ZHAT*INCHES,B0
<ESCAPE> I termination
SAVE ALL INTO FOO
{%%%%% ERROR ::
SAVE
ALL
INTO FOO
UNDECLARED IDENTIFIER SAVE : requires ← or : here
%%%%%%%%%%%%%%%%%%%%%%%}
WRITE ALL INTO FOO
{PONTY0.DMP[PNT, HE] :14:20 28 Apr 1981 ALIAS [THE,MSM] LOGIN [ 1,MSM]:Shahid}
MOVE BARM TO BPARK WITH DURATION=3*SECONDS
B0←BARM
B1←BARM
OPEN BHAND TO 3*INCHES
MOVE BARM TO B0 VIA B1+3*ZHATT*INCHES,B0+3*ZHAT*INCHES
{%%%%% ERROR ::
MOVE BARM TO B0 VIA B1+3*
ZHATT
*INCHES,B0+3*ZHAT*INCHES
UNEXPECTED TOKEN FOUND ⊂ZHATT⊃
%%%%%%%%%%%%%%%%%%%%%%%}
MOVE BARM TO B0 VIA B1+3*ZHAT*INCHES,B0+3*ZHAT*INCHES
WRITE B0,B1 INTO A28
QREAD MSMPRC.PNT[TMP,MSM]
{%%%%% WARNING ::
MSMPRC.PNT[TMP,MSM] PAGE 2 LINE 5
DRIVE BJT(1) TO 180
;
Dimensional incompatibility in DRIVE statement
Your value has dimensions: DIMENSIONLESS
Desired value has dimensions: [ANGLE]↑1
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% WARNING ::
MSMPRC.PNT[TMP,MSM] PAGE 2 LINE 7
DRIVE BJT(2) TO -90
;
Dimensional incompatibility in DRIVE statement
Your value has dimensions: DIMENSIONLESS
Desired value has dimensions: [ANGLE]↑1
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% WARNING ::
MSMPRC.PNT[TMP,MSM] PAGE 2 LINE 9
DRIVE BJT(3) TO 14
;
Dimensional incompatibility in DRIVE statement
Your value has dimensions: DIMENSIONLESS
Desired value has dimensions: [DISTANCE]↑1
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% WARNING ::
MSMPRC.PNT[TMP,MSM] PAGE 2 LINE 14
DRIVE BJT(4) TO -90
;
Dimensional incompatibility in DRIVE statement
Your value has dimensions: DIMENSIONLESS
Desired value has dimensions: [ANGLE]↑1
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% WARNING ::
MSMPRC.PNT[TMP,MSM] PAGE 2 LINE 16
DRIVE BJT(5) TO 90
;
Dimensional incompatibility in DRIVE statement
Your value has dimensions: DIMENSIONLESS
Desired value has dimensions: [ANGLE]↑1
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% WARNING ::
MSMPRC.PNT[TMP,MSM] PAGE 2 LINE 18
DRIVE BJT(6) TO 0
;
Dimensional incompatibility in DRIVE statement
Your value has dimensions: DIMENSIONLESS
Desired value has dimensions: [ANGLE]↑1
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% WARNING ::
MSMPRC.PNT[TMP,MSM] PAGE 3 LINE 14
ELSE CLOSE BHAND TO 0
ON
ERROR=EXCESSIVE_FORCE DO STOP ARM;
Dimensional incompatibility in OPEN/CLOSE statement
Your expression has dimensions: DIMENSIONLESS
Desired expression has dimensions: [DISTANCE]↑1
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% WARNING ::
MSMPRC.PNT[TMP,MSM] PAGE 7 LINE 4
DIRECTLY WITH DURATION=2
;
Dimensional incompatibility in DURATION clause
Your value has dimensions: DIMENSIONLESS
Desired value has dimensions: [TIME]↑1
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% WARNING ::
MSMPRC.PNT[TMP,MSM] PAGE 7 LINE 9
WITH
DURATION= 3 ;
Dimensional incompatibility in FORCE Clause
Your value has dimensions: DIMENSIONLESS
Desired value has dimensions: [FORCE]↑1
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% WARNING ::
MSMPRC.PNT[TMP,MSM] PAGE 7 LINE 9
WITH DURATION= 3
;
Dimensional incompatibility in DURATION clause
Your value has dimensions: DIMENSIONLESS
Desired value has dimensions: [TIME]↑1
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% WARNING ::
MSMPRC.PNT[TMP,MSM] PAGE 7 LINE 17
DIRECTLY WITH DURATION=2
;
Dimensional incompatibility in DURATION clause
Your value has dimensions: DIMENSIONLESS
Desired value has dimensions: [TIME]↑1
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% WARNING ::
MSMPRC.PNT[TMP,MSM] PAGE 7 LINE 23
ON
FORCE(ZHAT)>40 DO STOP BARM;
Dimensional incompatibility in DURATION clause
Your value has dimensions: DIMENSIONLESS
Desired value has dimensions: [TIME]↑1
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% WARNING ::
MSMPRC.PNT[TMP,MSM] PAGE 7 LINE 23
ON FORCE(ZHAT)>40
DO
STOP BARM;
Dimensional incompatibility in FORCE condition monitor
Desired value has dimensions: [FORCE]↑1
Your value has dimensions: DIMENSIONLESS
%%%%%%%%%%%%%%%%%%%%%%%}
SHOW GET
BLOCK←B0
GET(B0,1)
{%%%%% WARNING ::
GET(B0,1
)
incompatible dimensions in substituting parameters
formal parameter WIDTH has dimensions: [DISTANCE]↑1
current parameter has dimensions: DIMENSIONLESS
%%%%%%%%%%%%%%%%%%%%%%%}
PUT(B0,B1)
RELEASE(B0)
CALIB(GARM)
MOVE GARM TO GPARK-10*ZHAT*INCHES
G0←GARM
{PONTY0.DMP[PNT, HE] :14:49 28 Apr 1981 ALIAS [THE,MSM] LOGIN [ 1,MSM]:Shahid}
QREAD MSM0.PNT
{%%%%% WARNING ::
MSM0.PNT[THE,MSM] PAGE 2 LINE 5
DRIVE BJT(1) TO 180
;
Dimensional incompatibility in DRIVE statement
Your value has dimensions: DIMENSIONLESS
Desired value has dimensions: [ANGLE]↑1
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% WARNING ::
MSM0.PNT[THE,MSM] PAGE 2 LINE 7
DRIVE BJT(2) TO -90
;
Dimensional incompatibility in DRIVE statement
Your value has dimensions: DIMENSIONLESS
Desired value has dimensions: [ANGLE]↑1
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% WARNING ::
MSM0.PNT[THE,MSM] PAGE 2 LINE 9
DRIVE BJT(3) TO 14
;
Dimensional incompatibility in DRIVE statement
Your value has dimensions: DIMENSIONLESS
Desired value has dimensions: [DISTANCE]↑1
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% WARNING ::
MSM0.PNT[THE,MSM] PAGE 2 LINE 14
DRIVE BJT(4) TO -90
;
Dimensional incompatibility in DRIVE statement
Your value has dimensions: DIMENSIONLESS
Desired value has dimensions: [ANGLE]↑1
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% WARNING ::
MSM0.PNT[THE,MSM] PAGE 2 LINE 16
DRIVE BJT(5) TO 90
;
Dimensional incompatibility in DRIVE statement
Your value has dimensions: DIMENSIONLESS
Desired value has dimensions: [ANGLE]↑1
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% WARNING ::
MSM0.PNT[THE,MSM] PAGE 2 LINE 18
DRIVE BJT(6) TO 0
;
Dimensional incompatibility in DRIVE statement
Your value has dimensions: DIMENSIONLESS
Desired value has dimensions: [ANGLE]↑1
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% WARNING ::
MSM0.PNT[THE,MSM] PAGE 3 LINE 14
ELSE CLOSE BHAND TO 0
ON
ERROR=EXCESSIVE_FORCE DO STOP ARM;
Dimensional incompatibility in OPEN/CLOSE statement
Your expression has dimensions: DIMENSIONLESS
Desired expression has dimensions: [DISTANCE]↑1
%%%%%%%%%%%%%%%%%%%%%%%}
QREAD MSM1.PNT
{%%%%% WARNING ::
MSM1.PNT[THE,MSM] PAGE 2 LINE 6
OPEN HAND TO OPENING MIN HAND_MAX
;
Dimensional incompatibility in OPEN/CLOSE statement
Your expression has dimensions: DIMENSIONLESS
Desired expression has dimensions: [DISTANCE]↑1
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% WARNING ::
MSM1.PNT[THE,MSM] PAGE 2 LINE 14
IF |WIDTH - HAND
|
>TOL THEN PRINT("OBJECT NOT THE SIZE EXPECTED");
Argument 2 must have same dimensions as that of argument 1
Argument 2 has dimensions: [DISTANCE]↑1
argument 1 has dimensions: DIMENSIONLESS
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% WARNING ::
MSM1.PNT[THE,MSM] PAGE 2 LINE 14
IF |WIDTH - HAND|>TOL
THEN
PRINT("OBJECT NOT THE SIZE EXPECTED");
Argument 2 must have same dimensions as that of argument 1
Argument 2 has dimensions: DIMENSIONLESS
argument 1 has dimensions: [DISTANCE]↑1
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% WARNING ::
MSM1.PNT[THE,MSM] PAGE 2 LINE 21
IF |WIDTH - HAND
|
>TOL THEN PRINT("OBJECT NOT THE SIZE EXPECTED");
Argument 2 must have same dimensions as that of argument 1
Argument 2 has dimensions: [DISTANCE]↑1
argument 1 has dimensions: DIMENSIONLESS
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% WARNING ::
MSM1.PNT[THE,MSM] PAGE 2 LINE 21
IF |WIDTH - HAND|>TOL
THEN
PRINT("OBJECT NOT THE SIZE EXPECTED");
Argument 2 must have same dimensions as that of argument 1
Argument 2 has dimensions: DIMENSIONLESS
argument 1 has dimensions: [DISTANCE]↑1
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% WARNING ::
MSM1.PNT[THE,MSM] PAGE 2 LINE 27
OPEN HAND TO (HAND+OPENING
)
MIN HAND_MAX;
Argument 2 must have same dimensions as that of argument 1
Argument 2 has dimensions: DIMENSIONLESS
argument 1 has dimensions: [DISTANCE]↑1
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% WARNING ::
MSM1.PNT[THE,MSM] PAGE 2 LINE 27
OPEN HAND TO (HAND+OPENING) MIN HAND_MAX
;
Argument 2 must have same dimensions as that of argument 1
Argument 2 has dimensions: DIMENSIONLESS
argument 1 has dimensions: [DISTANCE]↑1
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% WARNING ::
MSM1.PNT[THE,MSM] PAGE 3 LINE 10
IF |POS(F1)-POS(F2)|>TOL1
THEN
S1←1 ELSE S1←0;
Argument 2 must have same dimensions as that of argument 1
Argument 2 has dimensions: DIMENSIONLESS
argument 1 has dimensions: [DISTANCE]↑1
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% WARNING ::
MSM1.PNT[THE,MSM] PAGE 3 LINE 11
IF |ORIENT(INV(F1)*F2)|>TOL2
THEN
S2←2 ELSE S2←0;
Argument 2 must have same dimensions as that of argument 1
Argument 2 has dimensions: DIMENSIONLESS
argument 1 has dimensions: [ANGLE]↑1
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% WARNING ::
MSM1.PNT[THE,MSM] PAGE 3 LINE 18
IF TOL1>DTOL
THEN
MOVE ARM TO F APPROXIMATELY
Argument 2 must have same dimensions as that of argument 1
Argument 2 has dimensions: [DISTANCE]↑1
argument 1 has dimensions: DIMENSIONLESS
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% WARNING ::
MSM1.PNT[THE,MSM] PAGE 3 LINE 27
IF TOL1>DTOL
THEN
MOVE ARM TO ARM*F APPROXIMATELY
Argument 2 must have same dimensions as that of argument 1
Argument 2 has dimensions: [DISTANCE]↑1
argument 1 has dimensions: DIMENSIONLESS
%%%%%%%%%%%%%%%%%%%%%%%}
QREAD MSM2.PNT
{%%%%% WARNING ::
MSM2.PNT[THE,MSM] PAGE 2 LINE 3
OPEN HAND TO (HAND + INC_DIST
)
MIN HAND_MAX;
Argument 2 must have same dimensions as that of argument 1
Argument 2 has dimensions: DIMENSIONLESS
argument 1 has dimensions: [DISTANCE]↑1
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% WARNING ::
MSM2.PNT[THE,MSM] PAGE 2 LINE 3
OPEN HAND TO (HAND + INC_DIST) MIN HAND_MAX
;
Argument 2 must have same dimensions as that of argument 1
Argument 2 has dimensions: DIMENSIONLESS
argument 1 has dimensions: [DISTANCE]↑1
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% WARNING ::
MSM2.PNT[THE,MSM] PAGE 2 LINE 8
RETURN(|POS(OBJ)-POS(DEST - .5*APP WRT DEST
)
|> |APP*.5|);
Argument 2 must have same dimensions as that of argument 1
Argument 2 has dimensions: [DISTANCE]↑1
argument 1 has dimensions: DIMENSIONLESS
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% WARNING ::
MSM2.PNT[THE,MSM] PAGE 2 LINE 8
RETURN(|POS(OBJ)-POS(DEST - .5*APP WRT DEST)|> |APP*.5|
)
;
Argument 2 must have same dimensions as that of argument 1
Argument 2 has dimensions: DIMENSIONLESS
argument 1 has dimensions: [DISTANCE]↑1
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% WARNING ::
MSM2.PNT[THE,MSM] PAGE 2 LINE 14
RETURN((BHAND - S
)
<EXTRA_WIDTH*0.8);
Argument 2 must have same dimensions as that of argument 1
Argument 2 has dimensions: DIMENSIONLESS
argument 1 has dimensions: [DISTANCE]↑1
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% WARNING ::
MSM2.PNT[THE,MSM] PAGE 2 LINE 14
RETURN((BHAND - S)<EXTRA_WIDTH*0.8
)
;
Argument 2 must have same dimensions as that of argument 1
Argument 2 has dimensions: DIMENSIONLESS
argument 1 has dimensions: [DISTANCE]↑1
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% WARNING ::
)
incompatible dimensions in substituting parameters
formal parameter EXTRA_WIDTH has dimensions: DIMENSIONLESS
current parameter has dimensions: [DISTANCE]↑1
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% WARNING ::
MSM2.PNT[THE,MSM] PAGE 2 LINE 19
THEN OPEN BHAND TO (WIDTH+EXTRA_WIDTH) MIN HAND_MAX
;
Dimensional incompatibility in OPEN/CLOSE statement
Your expression has dimensions: DIMENSIONLESS
Desired expression has dimensions: [DISTANCE]↑1
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% WARNING ::
,3*ZHAT*INCHES
)
incompatible dimensions in substituting parameters
formal parameter APP has dimensions: DIMENSIONLESS
current parameter has dimensions: [DISTANCE]↑1
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% WARNING ::
)
incompatible dimensions in substituting parameters
formal parameter EXTRA_WIDTH has dimensions: DIMENSIONLESS
current parameter has dimensions: [DISTANCE]↑1
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% WARNING ::
,-3*ZHAT*INCHES
)
incompatible dimensions in substituting parameters
formal parameter APP has dimensions: DIMENSIONLESS
current parameter has dimensions: [DISTANCE]↑1
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% WARNING ::
,1*INCH
)
incompatible dimensions in substituting parameters
formal parameter INC_DIST has dimensions: DIMENSIONLESS
current parameter has dimensions: [DISTANCE]↑1
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% WARNING ::
MSM2.PNT[THE,MSM] PAGE 3 LINE 4
MOVE ARM TO ARM + DEL*ZHAT WRT ARM
;
Argument 2 must have same dimensions as that of argument 1
Argument 2 has dimensions: [DISTANCE]↑1
argument 1 has dimensions: DIMENSIONLESS
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% WARNING ::
MSM2.PNT[THE,MSM] PAGE 3 LINE 7
MOVE ARM TO ARM - DEL * ZHAT WRT ARM
;
Argument 2 must have same dimensions as that of argument 1
Argument 2 has dimensions: [DISTANCE]↑1
argument 1 has dimensions: DIMENSIONLESS
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% WARNING ::
MSM2.PNT[THE,MSM] PAGE 3 LINE 10
MOVE ARM TO ARM + DEL * XHAT
;
Argument 2 must have same dimensions as that of argument 1
Argument 2 has dimensions: DIMENSIONLESS
argument 1 has dimensions: [DISTANCE]↑1
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% WARNING ::
MSM2.PNT[THE,MSM] PAGE 3 LINE 13
MOVE ARM TO ARM + DEL * YHAT
;
Argument 2 must have same dimensions as that of argument 1
Argument 2 has dimensions: DIMENSIONLESS
argument 1 has dimensions: [DISTANCE]↑1
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% WARNING ::
MSM2.PNT[THE,MSM] PAGE 3 LINE 16
MOVE ARM TO ARM + DEL * ZHAT
;
Argument 2 must have same dimensions as that of argument 1
Argument 2 has dimensions: DIMENSIONLESS
argument 1 has dimensions: [DISTANCE]↑1
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% WARNING ::
MSM2.PNT[THE,MSM] PAGE 3 LINE 19
MOVE ARM TO TRANS(ORIENT(ARM)*ROT(ZHAT,DEL)
,
POS(ARM));
Argument 2 must have same dimensions as that of ANGLE
Argument 2 has dimensions: DIMENSIONLESS
ANGLE has dimensions: [ANGLE]↑1
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% WARNING ::
MSM2.PNT[THE,MSM] PAGE 3 LINE 22
MOVE ARM TO TRANS(ORIENT(ARM)*ROT(YHAT,DEL)
,
POS(ARM));
Argument 2 must have same dimensions as that of ANGLE
Argument 2 has dimensions: DIMENSIONLESS
ANGLE has dimensions: [ANGLE]↑1
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% WARNING ::
MSM2.PNT[THE,MSM] PAGE 3 LINE 25
MOVE ARM TO TRANS(ORIENT(ARM)*ROT(XHAT,DEL)
,
POS(ARM));
Argument 2 must have same dimensions as that of ANGLE
Argument 2 has dimensions: DIMENSIONLESS
ANGLE has dimensions: [ANGLE]↑1
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% WARNING ::
MSM2.PNT[THE,MSM] PAGE 3 LINE 30
TEMP←ARM + DELD * ZHAT WRT ARM
;
Argument 2 must have same dimensions as that of argument 1
Argument 2 has dimensions: [DISTANCE]↑1
argument 1 has dimensions: DIMENSIONLESS
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% WARNING ::
MSM2.PNT[THE,MSM] PAGE 3 LINE 31
ORIENT(TEMP)←ORIENT(TEMP)*ROT(ZHAT,DELA)
;
Argument 2 must have same dimensions as that of ANGLE
Argument 2 has dimensions: DIMENSIONLESS
ANGLE has dimensions: [ANGLE]↑1
%%%%%%%%%%%%%%%%%%%%%%%}
QREAD MSM3.PNT
{%%%%% WARNING ::
MSM3.PNT[THE,MSM] PAGE 2 LINE 3
MOVE BARM TO FINAL_FRAME- (DIAMETER/2)*YHAT
+
(OFFSET + .3)*ZHAT
Argument 2 must have same dimensions as that of argument 1
Argument 2 has dimensions: DIMENSIONLESS
argument 1 has dimensions: [DISTANCE]↑1
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% WARNING ::
WITH
APPROACH = NILDEPROACH WITH DEPARTURE = NILDEPROACH
Argument 2 must have same dimensions as that of argument 1
Argument 2 has dimensions: DIMENSIONLESS
argument 1 has dimensions: [DISTANCE]↑1
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% WARNING ::
MSM3.PNT[THE,MSM] PAGE 2 LINE 4
DIRECTLY WITH DURATION=2
;
Dimensional incompatibility in DURATION clause
Your value has dimensions: DIMENSIONLESS
Desired value has dimensions: [TIME]↑1
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% WARNING ::
MSM3.PNT[THE,MSM] PAGE 2 LINE 5
MOVE BARM VIA FINAL_FRAME - (DIAMETER/3)*YHAT
-
OFFSET/2*ZHAT
Argument 2 must have same dimensions as that of argument 1
Argument 2 has dimensions: DIMENSIONLESS
argument 1 has dimensions: [DISTANCE]↑1
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% WARNING ::
MSM3.PNT[THE,MSM] PAGE 2 LINE 6
TO
FINAL_FRAME + (DIAMETER/2)*YHAT - OFFSET*ZHAT
Argument 2 must have same dimensions as that of argument 1
Argument 2 has dimensions: DIMENSIONLESS
argument 1 has dimensions: [DISTANCE]↑1
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% WARNING ::
MSM3.PNT[THE,MSM] PAGE 2 LINE 6
TO FINAL_FRAME + (DIAMETER/2)*YHAT
-
OFFSET*ZHAT
Argument 2 must have same dimensions as that of argument 1
Argument 2 has dimensions: DIMENSIONLESS
argument 1 has dimensions: [DISTANCE]↑1
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% WARNING ::
MSM3.PNT[THE,MSM] PAGE 2 LINE 7
WITH
STIFFNESS=(30,20,15,100,100,100)
Argument 2 must have same dimensions as that of argument 1
Argument 2 has dimensions: DIMENSIONLESS
argument 1 has dimensions: [DISTANCE]↑1
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% WARNING ::
MSM3.PNT[THE,MSM] PAGE 2 LINE 10
WITH
DURATION= 3 ;
Dimensional incompatibility in FORCE Clause
Your value has dimensions: DIMENSIONLESS
Desired value has dimensions: [FORCE]↑1
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% WARNING ::
MSM3.PNT[THE,MSM] PAGE 2 LINE 10
WITH DURATION= 3
;
Dimensional incompatibility in DURATION clause
Your value has dimensions: DIMENSIONLESS
Desired value has dimensions: [TIME]↑1
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% WARNING ::
MSM3.PNT[THE,MSM] PAGE 2 LINE 16
YOFFSET←(DIAMETER/2) MIN 1.0*INCH
;
Dimensions of left hand and right hand sides are incompatible
LHS has dimensions: DIMENSIONLESS
RHS has dimensions: [DISTANCE]↑1
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% WARNING ::
MSM3.PNT[THE,MSM] PAGE 2 LINE 17
MOVE BARM TO DEST - YOFFSET*YHAT
+
OFFSET*ZHAT
Argument 2 must have same dimensions as that of argument 1
Argument 2 has dimensions: DIMENSIONLESS
argument 1 has dimensions: [DISTANCE]↑1
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% WARNING ::
WITH
APPROACH = NILDEPROACH WITH DEPARTURE = NILDEPROACH
Argument 2 must have same dimensions as that of argument 1
Argument 2 has dimensions: DIMENSIONLESS
argument 1 has dimensions: [DISTANCE]↑1
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% WARNING ::
MSM3.PNT[THE,MSM] PAGE 2 LINE 18
DIRECTLY WITH DURATION=2
;
Dimensional incompatibility in DURATION clause
Your value has dimensions: DIMENSIONLESS
Desired value has dimensions: [TIME]↑1
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% WARNING ::
MSM3.PNT[THE,MSM] PAGE 2 LINE 20
TO
DEST + VECTOR(0,YOFFSET,-OFFSET)
Argument 2 must have same dimensions as that of argument 1
Argument 2 has dimensions: DIMENSIONLESS
argument 1 has dimensions: [DISTANCE]↑1
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% WARNING ::
MSM3.PNT[THE,MSM] PAGE 2 LINE 21
WITH
STIFFNESS=(40,20,40,200,400,200)
Argument 2 must have same dimensions as that of argument 1
Argument 2 has dimensions: DIMENSIONLESS
argument 1 has dimensions: [DISTANCE]↑1
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% WARNING ::
MSM3.PNT[THE,MSM] PAGE 2 LINE 24
ON
FORCE(ZHAT)>40 DO STOP BARM;
Dimensional incompatibility in DURATION clause
Your value has dimensions: DIMENSIONLESS
Desired value has dimensions: [TIME]↑1
%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%% WARNING ::
MSM3.PNT[THE,MSM] PAGE 2 LINE 24
ON FORCE(ZHAT)>40
DO
STOP BARM;
Dimensional incompatibility in FORCE condition monitor
Desired value has dimensions: [FORCE]↑1
Your value has dimensions: DIMENSIONLESS
%%%%%%%%%%%%%%%%%%%%%%%}
EXIT
{exiting at 14:59 28 Apr 1981
$FPMAX=54
$INTMAX=5
$PCDMAX=219}